NAME

Lingua::Align::Corpus::Factored - Read factored corpora (Moses format)

SYNOPSIS

use Lingua::Align::Corpus::Factored;

my $corpus = new Lingua::Align::Corpus::Factored(-file => $corpusfile);

my @words=();
while ($corpus->next_sentence(\@words)){
  print "\n",$corpus->current_id,"> ";
  foreach (0..$#words){
    print "word $_ = "
    print join(',',@{$words[$_]});
    print "\n";
  }
  print "---------------------\n";
}

DESCRIPTION

SEE ALSO

AUTHOR

Joerg Tiedemann

COPYRIGHT AND LICENSE

Copyright (C) 2009 by Joerg Tiedemann

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.