canon: by price only, not stall

diff --git a/yarrg/canon b/yarrg/canon
index cb6b980c0189cff0fc5c8e5ccd8bfd3c8dcd98f3..182fa325e957ed5f0b676f8b0ae19011b40d9e89 100755 (executable)
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -7,9 +7,9 @@ foreach my $ab (qw(0 1)) {
         my @l= split /\t/, $_;
         next unless length $l[2];
         $l[3]='1001' if $l[3] eq '>1000';
-        my $k= sprintf "%-23s\t%-31s", $l[0], $l[1];
-        $s{$k}[$ab*2]= $l[2];
-        $s{$k}[$ab*2+1]= $l[3];
+        my $k= sprintf "%5d\t%-23s", $l[2], $l[0];
+        $s{$k} ||= [ 0,0 ];
+        $s{$k}[$ab]= $l[3];
     }
     close F or die $!;
 }
@@ -18,9 +18,8 @@ foreach my $k (sort keys %s) {
     my @r= @{ $s{$k} };
     my $whynot=
         !defined($r[0]) ? 'ADD' :
-        !defined($r[2]) ? 'DEL' :
-        $r[0] != $r[2] ? 'pri' :
-        $r[1] != $r[3] ? (sprintf "qt %4d",($r[3]-$r[1])) :
+        !defined($r[1]) ? 'DEL' :
+        $r[0] != $r[1] ? (sprintf "qt %4d",($r[1]-$r[0])) :
         undef;
     next unless $whynot;
     print $whynot,"\t",$k;