9 lines
235 B
Perl
9 lines
235 B
Perl
|
open A, "< $ARGV[0]" or die "can't open $ARGV[0]";
|
||
|
|
open B, "< $ARGV[1]" or die "can't open $ARGV[1]";
|
||
|
|
while (defined ($a = <A>) && defined ($b = <B>)) {
|
||
|
|
$a =~ s/[\r\n]+$//s;
|
||
|
|
$b =~ s/[\r\n]+$//s;
|
||
|
|
exit 1 unless $a eq $b;
|
||
|
|
}
|
||
|
|
exit 0;
|