filter-stderr.pl

来自「moses开源的机器翻译系统」· PL 代码 · 共 23 行

#!/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";
}