From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Jan 2011 17:50:38 +0000 (+0000)
Subject: canon: support searching sells too
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=commitdiff_plain;h=3458b594add39b3537c26d9e420d6d9494ff6a5c;p=ypp-sc-tools.main.git

canon: support searching sells too
---

diff --git a/yarrg/canon b/yarrg/canon
index 3d4bc67..78c5849 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -1,10 +1,14 @@
 #!/usr/bin/perl -w
 use strict qw(refs vars);
 our %s;
+my $bs= $ARGV[2];
 foreach my $ab (qw(0 1)) {
     open F, "zcat $ARGV[$ab] |" or die $!;
     while (<F>) {
-        my @l= split /\t/, $_;
+        chomp;
+        my @l= split /\t/, $_, -1;
+        @l == 6 or die "$#l";
+        if ($bs) { @l= ($l[0],$l[1],$l[4],$l[5]); }
         next unless length $l[2];
         $l[3]='1001' if $l[3] eq '>1000';
         my $k= sprintf "%-31s\t%-23s", $l[1], $l[0];