scripts/training/get-lexical.perl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/env perl 

use warnings;
use strict;
use FindBin qw($RealBin);
BEGIN { require "$RealBin/LexicalTranslationModel.pm"; "LexicalTranslationModel"->import; }

if (scalar(@ARGV) < 4) {

    print STDERR $0." source target alignments output_prefix"."\n"

} else {

    my ($SOURCE,$TARGET,$ALIGNMENT,$OUT) = @ARGV;
    
    &get_lexical($SOURCE,$TARGET,$ALIGNMENT,$OUT,0);

}