moses-smt/mosesdecoder
1
1
Fork 0
mirror of https://github.com/moses-smt/mosesdecoder.git synced 2024-10-05 15:58:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Enable use strict pragma

Browse Source
This commit is contained in:
titsuki 2019-09-23 15:40:13 +09:00
parent fd06cdf026
commit 490dc3996a
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
scripts/OSM/extract-singletons.perl
View File

@ -3,9 +3,13 @@
# This file is part of moses. Its use is licensed under the GNU Lesser General
# Public License version 2.1 or, at your option, any later version.
#use strict;
use strict;
use warnings;
use Getopt::Std;
our ($opt_q, %count);
our $M = 0;
getopts('q');
my $target = shift;
@ -22,19 +26,19 @@ while (<TARGET>) {
unless (defined $opt_q) {
print STDERR "\r$M" if ++$M%1000 == 0;
}
@T = split;
my @T = split;
$_ = <SOURCE>;
@S = split;
my @S = split;
$_ = <ALIGN>;
@A = split;
my @A = split;
my(@source_links,@target_links);
for( $i=0; $i<=$#A; $i+=2 ) {
for(my $i=0; $i<=$#A; $i+=2 ) {
$target_links[$A[$i]]++;
$source_links[$A[$i+1]]++;
}
for( $i=0; $i<=$#A; $i+=2 ) {
for(my $i=0; $i<=$#A; $i+=2 ) {
if ($target_links[$A[$i]] == 1 && $source_links[$A[$i+1]] == 1 &&
$T[$A[$i]] eq $S[$A[$i+1]])
{
@ -46,6 +50,6 @@ while (<TARGET>) {
}
}
foreach $w (sort keys %count) {
foreach my $w (sort keys %count) {
print "$w\n" if $count{$w}==1;
}