chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
06f4d95
)
canon: by price only, not stall
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 24 Jan 2011 15:27:45 +0000
(15:27 +0000)
committer
Ian Jackson
<Ian.Jackson@eu.citrix.com>
Mon, 24 Jan 2011 15:37:53 +0000
(15:37 +0000)
yarrg/canon
patch
|
blob
|
history
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 @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 $!;
}
}
close F or die $!;
}
@@
-18,9
+18,8
@@
foreach my $k (sort keys %s) {
my @r= @{ $s{$k} };
my $whynot=
!defined($r[0]) ? 'ADD' :
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;
undef;
next unless $whynot;
print $whynot,"\t",$k;