![[info]](http://l-stat.livejournal.com/img/userinfo.gif?v=92.1){kind=small}
Нужно найти разницу и записать в файлы.
open A, shift or die;
open B, shift or die;
my $h = 0;
while (!(eof(A) && eof(B)) ) {
( $a, $b ) = $h == 0 ?
( scalar <A>, scalar <B> ) : $h == 1 ?
( $a, scalar <B> ) : ( scalar <A>, $b );
print "< $a" and next unless (defined $b);
print "> $b" and next unless (defined $a);
$h = $a cmp $b or next;
print $h == 1 ? "> $b" : "< $a";
}
в принципе, можно сократить 2 строчки, но было лень разбираться с
$h = $a cmp $b or next;...
