Задачка

[ocehb]

есть 2 бесконечно больших текстовых файла отсортированных лексикографически.
Нужно найти разницу и записать в файлы.

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;...