diff options
Diffstat (limited to 'tests/phrase.confusionNet-surface-only.mem/filter-stderr.pl')
-rwxr-xr-x | tests/phrase.confusionNet-surface-only.mem/filter-stderr.pl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/phrase.confusionNet-surface-only.mem/filter-stderr.pl b/tests/phrase.confusionNet-surface-only.mem/filter-stderr.pl new file mode 100755 index 0000000..2f6e176 --- /dev/null +++ b/tests/phrase.confusionNet-surface-only.mem/filter-stderr.pl @@ -0,0 +1,22 @@ +#!/usr/bin/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"; +} |