diff options
Diffstat (limited to 'tests/moses2.basic-surface-only.compact/filter-stderr.pl')
-rwxr-xr-x | tests/moses2.basic-surface-only.compact/filter-stderr.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/tests/moses2.basic-surface-only.compact/filter-stderr.pl b/tests/moses2.basic-surface-only.compact/filter-stderr.pl deleted file mode 100755 index fb31704..0000000 --- a/tests/moses2.basic-surface-only.compact/filter-stderr.pl +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/bin/env perl - -BEGIN { use Cwd qw/ abs_path /; use File::Basename; $script_dir = dirname(abs_path($0)); push @INC, "$script_dir/../perllib"; } -use RegTestUtils; - -$x=0; -while (<>) { - chomp; - - if (/^Finished loading LanguageModels/) { - my $time = RegTestUtils::readTime($_); - print "LMLOAD_TIME ~ $time\n"; - } - if (/^Finished loading phrase tables/) { - my $time = RegTestUtils::readTime($_); - print "PTLOAD_TIME ~ $time\n"; - } - next unless /BEST TRANSLATION:/; - my $pscore = RegTestUtils::readHypoScore($_); - $x++; - print "SCORE_$x = $pscore\n"; -} |