moses-smt/mosesdecoder
1
1
Fork 0
mirror of https://github.com/moses-smt/mosesdecoder.git synced 2024-08-17 07:20:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #213 from titsuki/enable-strict

Browse Source 
Enable use strict pragma
This commit is contained in:
Hieu Hoang 2019-09-25 01:04:13 +01:00 committed by GitHub
commit b21b071a66
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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;
}