2 use strict qw(refs vars);
4 foreach my $ab (qw(0 1)) {
5 open F, "zcat $ARGV[$ab] |" or die $!;
8 next unless length $l[2];
9 $l[3]='1001' if $l[3] eq '>1000';
10 my $k= sprintf "%-23s\t%-31s", $l[0], $l[1];
12 $s{$k}[$ab*2+1]= $l[3];
16 foreach my $k (sort keys %s) {
19 !defined($r[0]) ? 'ADD' :
20 !defined($r[2]) ? 'DEL' :
21 $r[0] != $r[2] ? 'pri' :
22 $r[1] != $r[3] ? (sprintf "qt %4d",($r[3]-$r[1])) :
25 print $whynot,"\t",$k;
26 print "\t", defined($_) ? $_ : "-" foreach @r;