mirror of
https://github.com/moses-smt/mosesdecoder.git
synced 2024-12-29 06:52:34 +03:00
34 lines
631 B
Perl
Executable File
34 lines
631 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Encode::Arabic::Buckwalter;
|
|
use Getopt::Long "GetOptions";
|
|
|
|
my $direction;
|
|
GetOptions('direction=i' => \$direction)
|
|
or exit(1);
|
|
# direction: 1=arabic->bw, 2=bw->arabic
|
|
|
|
die("ERROR: need to set direction") unless defined($direction);
|
|
|
|
|
|
|
|
while (my $line = <STDIN>) {
|
|
chomp($line);
|
|
|
|
my $lineOut;
|
|
if ($direction == 1) {
|
|
$lineOut = encode 'buckwalter', decode 'utf8', $line;
|
|
}
|
|
elsif ($direction == 2) {
|
|
$lineOut = encode 'utf8', decode 'buckwalter', $line;
|
|
}
|
|
else {
|
|
die("Unknown direction: $direction");
|
|
}
|
|
print "$lineOut\n";
|
|
|
|
}
|
|
|