mirror of
https://github.com/moses-smt/mosesdecoder.git
synced 2024-12-27 05:55:02 +03:00
17 lines
496 B
Perl
Executable File
17 lines
496 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# $Id: consolidate-training-data.perl 928 2009-09-02 02:58:01Z philipp $
|
|
|
|
use strict;
|
|
|
|
my ($in,$out,@PART) = @ARGV;
|
|
|
|
foreach my $part (@PART) {
|
|
die("ERROR: no part $part.$in or $part.$out") if (! -e "$part.$in" || ! -e "$part.$out");
|
|
my $in_size = `cat $part.$in | wc -l`;
|
|
my $out_size = `cat $part.$out | wc -l`;
|
|
die("number of lines don't match: '$part.$in' ($in_size) != '$part.$out' ($out_size)")
|
|
if $in_size != $out_size;
|
|
print "$in_size";
|
|
}
|