| |
| |
| |
| |
|
|
| use warnings; |
| use strict; |
|
|
| use utf8; |
| use File::Basename; |
| use Getopt::Long "GetOptions"; |
| use FindBin qw($RealBin); |
| use Scalar::Util qw(looks_like_number); |
| use IO::Handle; |
| binmode(STDIN, ':utf8'); |
| binmode(STDOUT, ':utf8'); |
| binmode(STDERR, ':utf8'); |
|
|
| my $___FACTOR_DELIMITER = "|"; |
|
|
| my ($MOSES_SRC_DIR,$TRANSLIT_MODEL,$EVAL_DIR,$OUTPUT_FILE,$OUTPUT_FILE_NAME,$OOV_FILE, $OOV_FILE_NAME, $EXTERNAL_BIN_DIR, $LM_FILE, $INPUT_EXTENSION, $OUTPUT_EXTENSION, $INPUT_FILE,$VERBOSE,$DECODER,$TMP_DIR); |
| die("ERROR: wrong syntax when invoking postDecodingTransliteration.perl") |
| unless &GetOptions('moses-src-dir=s' => \$MOSES_SRC_DIR, |
| 'external-bin-dir=s' => \$EXTERNAL_BIN_DIR, |
| 'transliteration-model-dir=s' => \$TRANSLIT_MODEL, |
| 'input-extension=s' => \$INPUT_EXTENSION, |
| 'output-extension=s' => \$OUTPUT_EXTENSION, |
| 'decoder=s' => \$DECODER, |
| 'oov-file=s' => \$OOV_FILE, |
| 'tmp-dir=s' => \$TMP_DIR, |
| 'input-file=s' => \$INPUT_FILE, |
| 'output-file=s' => \$OUTPUT_FILE, |
| 'verbose' => \$VERBOSE, |
| 'language-model=s' => \$LM_FILE); |
|
|
| |
| die("ERROR: you need to define --moses-src-dir --external-bin-dir, --transliteration-model-dir, --oov-file, --output-file --input-extension, --output-extension, and --language-model") |
| unless (defined($MOSES_SRC_DIR) && |
| defined($TRANSLIT_MODEL) && |
| defined($OOV_FILE) && |
| defined($INPUT_EXTENSION)&& |
| defined($OUTPUT_EXTENSION)&& |
| defined($INPUT_FILE)&& |
| defined($EXTERNAL_BIN_DIR)&& |
| defined($LM_FILE)); |
| if (! -e $LM_FILE) { |
| my $LM_FILE_WORD = `ls $LM_FILE*word*`; |
| chop($LM_FILE_WORD); |
| $LM_FILE = $LM_FILE_WORD if $LM_FILE_WORD ne ""; |
| } |
| die("ERROR: could not find Language Model '$LM_FILE'") |
| unless -e $LM_FILE; |
| die("ERROR: could not find Transliteration Model '$TRANSLIT_MODEL'") |
| unless -e $TRANSLIT_MODEL; |
| die("ERROR: could not find OOV file $OOV_FILE'") |
| unless -e $OOV_FILE; |
| die("ERROR: could not find Input file $INPUT_FILE'") |
| unless -e $INPUT_FILE; |
|
|
| $EVAL_DIR = dirname($INPUT_FILE); |
| $OUTPUT_FILE_NAME = basename ($OUTPUT_FILE); |
| $OOV_FILE_NAME = basename ($OOV_FILE); |
|
|
| $TMP_DIR = $OUTPUT_FILE.".tmp" unless defined($TMP_DIR); |
| |
| `mkdir -p $TMP_DIR/transliteration`; |
| `cp $OOV_FILE $TMP_DIR/transliteration`; |
| my $translitFile = "$TMP_DIR/transliteration/$OOV_FILE_NAME"; |
|
|
| print "Preparing for Transliteration\n"; |
| &prepare_for_transliteration ($OOV_FILE, $translitFile); |
| print "Run Transliteration\n"; |
| &run_transliteration ($MOSES_SRC_DIR , $EXTERNAL_BIN_DIR , $TRANSLIT_MODEL , $OOV_FILE_NAME); |
| print "Pick Best Transliteration\n"; |
| &form_corpus ($translitFile , $translitFile.".op.nBest" , $EVAL_DIR); |
| &run_decoder($MOSES_SRC_DIR, $EXTERNAL_BIN_DIR, $LM_FILE); |
|
|
| |
|
|
| sub prepare_for_transliteration |
| { |
| my @list = @_; |
| my $testFile = $list[0]; |
| my $translitFile = $list[1]; |
| my %UNK; |
| my @words; |
| my $src; |
| my @tW; |
|
|
| open MYFILE, "<:encoding(UTF-8)", $testFile or die "Can't open $testFile: $!\n"; |
|
|
| while (<MYFILE>) |
| { |
| chomp; |
| |
| @words = split(/ /, "$_"); |
|
|
| foreach (@words) |
| { |
|
|
| @tW = split /\Q$___FACTOR_DELIMITER/; |
|
|
| if (defined $tW[0]) |
| { |
|
|
| if (! ($tW[0] =~ /[0-9.,]/)) |
| { |
| $UNK{$tW[0]} = 1; |
| } |
| else |
| { |
| print "Not transliterating $tW[0] \n"; |
| } |
| } |
| } |
| } |
| close (MYFILE); |
|
|
| open MYFILE, ">:encoding(UTF-8)", $translitFile or die "Can't open $translitFile: $!\n"; |
|
|
| foreach my $key ( keys %UNK ) |
| { |
| $src=join(' ', split('',$key)); |
| print MYFILE "$src\n"; |
| } |
| close (MYFILE); |
| } |
|
|
| |
|
|
| sub run_transliteration |
| { |
| my @list = @_; |
| my $MOSES_SRC = $list[0]; |
| my $EXTERNAL_BIN_DIR = $list[1]; |
| my $TRANSLIT_MODEL = $list[2]; |
| my $eval_file = $list[3]; |
| print "run_transliteration($MOSES_SRC,$EXTERNAL_BIN_DIR,$TRANSLIT_MODEL,$eval_file)\n"; |
|
|
| `touch $TMP_DIR/transliteration/$eval_file.moses.table.ini`; |
|
|
| print "Filter Table... ".`date`; |
|
|
| my $cmd = "$MOSES_SRC/scripts/training/train-model.perl -dont-zip -first-step 9 -external-bin-dir $EXTERNAL_BIN_DIR -f $INPUT_EXTENSION -e $OUTPUT_EXTENSION -phrase-translation-table $TRANSLIT_MODEL/model/phrase-table -config $TMP_DIR/transliteration/$eval_file.moses.table.ini -lm 0:3:$TMP_DIR/transliteration/$eval_file.moses.table.ini:8"; |
| print $cmd."\n"; |
| `$cmd`; |
|
|
| $cmd = "$MOSES_SRC/scripts/training/filter-model-given-input.pl $TMP_DIR/transliteration/$eval_file.filtered $TMP_DIR/transliteration/$eval_file.moses.table.ini $TMP_DIR/transliteration/$eval_file -Binarizer \"$MOSES_SRC/bin/CreateOnDiskPt 1 1 4 100 2\""; |
| print $cmd."\n"; |
| `$cmd`; |
|
|
| `rm $TMP_DIR/transliteration/$eval_file.moses.table.ini`; |
|
|
| print "Apply Filter\n"; |
|
|
| $cmd = "$MOSES_SRC/scripts/ems/support/substitute-filtered-tables-and-weights.perl $TMP_DIR/transliteration/$eval_file.filtered/moses.ini $TRANSLIT_MODEL/model/moses.ini $TRANSLIT_MODEL/tuning/moses.tuned.ini $TMP_DIR/transliteration/$eval_file.filtered.ini"; |
| print $cmd."\n"; |
| `$cmd`; |
|
|
| my $drop_stderr = $VERBOSE ? "" : " 2>/dev/null"; |
| $cmd = "$DECODER -search-algorithm 1 -cube-pruning-pop-limit 5000 -s 5000 -threads 16 -drop-unknown -distortion-limit 0 -n-best-list $TMP_DIR/transliteration/$eval_file.op.nBest 1000 distinct -f $TMP_DIR/transliteration/$eval_file.filtered.ini < $TMP_DIR/transliteration/$eval_file > $TMP_DIR/transliteration/$eval_file.op $drop_stderr"; |
| print $cmd."\n"; |
| `$cmd`; |
| } |
|
|
| |
|
|
|
|
| sub form_corpus |
| { |
|
|
| my @list = @_; |
| my $inp_file = $list[0]; |
| my $testFile = $list[1]; |
| my $EVAL_DIR = $list[2]; |
| my @words; |
| my $thisStr; |
| my $features; |
| my $prev = 0; |
| my $sNum; |
| my @UNK; |
| my %vocab; |
|
|
| `mkdir -p $TMP_DIR/retranslation/model`; |
| my $antLog = exp(0.2); |
|
|
| my $phraseTable = "$TMP_DIR/retranslation/model/phrase-table"; |
|
|
| open MYFILE, "<:encoding(UTF-8)", $inp_file or die "Can't open $inp_file: $!\n"; |
| open PT, ">:encoding(UTF-8)", $phraseTable or die "Can't open $phraseTable: $!\n"; |
|
|
| while (<MYFILE>) |
| { |
| chomp; |
| |
| @words = split(/ /, "$_"); |
|
|
| $thisStr = ""; |
| foreach (@words) |
| { |
| $thisStr = $thisStr . "$_"; |
| } |
|
|
| push(@UNK, $thisStr); |
| $vocab{$thisStr} = 1; |
| } |
| close (MYFILE); |
|
|
| open MYFILE, "<:encoding(UTF-8)", $testFile or die "Can't open $testFile: $!\n"; |
| my $inpCount = 0; |
|
|
| while (<MYFILE>) |
| { |
| chomp; |
| |
| @words = split(/ /, "$_"); |
|
|
| $sNum = $words[0]; |
|
|
| if ($prev != $sNum){ |
| $inpCount++; |
| } |
|
|
| my $i = 2; |
| $thisStr = ""; |
| $features = ""; |
|
|
| while ($words[$i] ne "|||") |
| { |
| $thisStr = $thisStr . $words[$i]; |
| $i++; |
| } |
|
|
| $i++; |
|
|
| while ($words[$i] ne "|||") |
| { |
| if ($words[$i] =~ /Penalty0/ || $words[$i] eq "Distortion0=" || $words[$i] eq "LM0=" ){ |
| $i++; |
| } |
| elsif (looks_like_number($words[$i])){ |
| $features = $features . " " . exp($words[$i]); |
| } |
|
|
| $i++; |
| } |
| $i++; |
|
|
| |
|
|
| if ($thisStr ne ""){ |
| print PT "$UNK[$inpCount] ||| $thisStr ||| $features ||| 0-0 ||| 0 0 0\n"; |
| } |
| $prev = $sNum; |
| } |
| close (MYFILE); |
|
|
|
|
| open MYFILE, "<:encoding(UTF-8)", $INPUT_FILE or die "Can't open $INPUT_FILE: $!\n"; |
|
|
| my %dd; |
|
|
| while (<MYFILE>) |
| { |
| chomp; |
| @words = split(/ /, "$_"); |
|
|
| foreach (@words) |
| { |
| if (! exists $vocab{$_} && ! exists $dd{$_}){ |
|
|
| print PT "$_ ||| $_ ||| 1.0 1.0 1.0 1.0 ||| 0-0 ||| 0 0 0\n"; |
| $dd{$_} = 1; |
| } |
| } |
| } |
|
|
| close (PT); |
| close (MYFILE); |
|
|
| `gzip $phraseTable`; |
|
|
| } |
|
|
|
|
| |
|
|
| sub run_decoder |
| { |
|
|
| my @list = @_; |
| my $MOSES_SRC = $list[0]; |
| my $EXTERNAL_BIN_DIR = $list[1]; |
| my $LM_FILE = $list[2]; |
| my @words; |
|
|
| `mkdir -p $TMP_DIR/retranslation/evaluation`; |
|
|
| print "Creating config file... ".`date`; |
| my $cmd = "$MOSES_SRC/scripts/training/train-model.perl " |
| ."-mgiza -mgiza-cpus 10 -dont-zip -first-step 9 " |
| ."-external-bin-dir $EXTERNAL_BIN_DIR -f $INPUT_EXTENSION " |
| ."-e $OUTPUT_EXTENSION -alignment grow-diag-final-and -parts 5 " |
| ."-lmodel-oov-feature \"yes\" -post-decoding-translit \"yes\" " |
| ."-phrase-translation-table $TMP_DIR/retranslation/model/phrase-table " |
| ."-config $TMP_DIR/retranslation/model/moses.ini -lm 0:5:$LM_FILE:8"; |
| print $cmd."\n"; |
| `$cmd`; |
|
|
| print "Filtering transliteration phrase table... ".`date`; |
| $cmd = "$MOSES_SRC/scripts/training/filter-model-given-input.pl " |
| ."$TMP_DIR/retranslation/filtered " |
| ."$TMP_DIR/retranslation/model/moses.ini " |
| ."$INPUT_FILE -Binarizer \"$MOSES_SRC/bin/CreateOnDiskPt " |
| ."1 1 4 100 2\""; |
| print $cmd."\n"; |
| `$cmd`; |
|
|
| print "Retranslating... ".`date`; |
| my $drop_stderr = $VERBOSE ? "" : " 2>/dev/null"; |
| $cmd = "$DECODER " |
| ."-search-algorithm 1 -cube-pruning-pop-limit 5000 -s 5000 " |
| ."-threads 16 -feature-overwrite 'TranslationModel0 table-limit=100' " |
| ."-max-trans-opt-per-coverage 100 " |
| ."-f $TMP_DIR/retranslation/filtered/moses.ini -distortion-limit 0 " |
| ."< $INPUT_FILE " |
| ."> $OUTPUT_FILE $drop_stderr"; |
| print $cmd."\n"; |
| `$cmd`; |
|
|
| print "Done. ".`date`; |
| } |
|
|