blob: 028279034dc671766eb786fd95d48e51ef44014d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl -w
use strict;
die "Usage: $0 corpus.e|f corpus.f|e" unless scalar @ARGV == 2;
my ($a, $b) = @ARGV;
open A, "<$a" or die "Can't read $a: $!";
open B, "<$b" or die "Can't read $a: $!";
while(<A>) {
chomp;
my $e = <B>;
die "Mismatched lines in $a and $b!" unless defined $e;
print "$_ ||| $e";
}
my $e = <B>;
die "Mismatched lines in $a and $b!" unless !defined $e;
|
