From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Jan 2011 15:25:45 +0000 (+0000)
Subject: canon: print total rows
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=commitdiff_plain;h=06f4d95a06094226aa726eb25a993205eac2534a;p=ypp-sc-tools.main.git

canon: print total rows
---

diff --git a/yarrg/canon b/yarrg/canon
index e97014a..cb6b980 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -13,6 +13,7 @@ foreach my $ab (qw(0 1)) {
     }
     close F or die $!;
 }
+print "total rows: ", (scalar keys %s), "\n";
 foreach my $k (sort keys %s) {
     my @r= @{ $s{$k} };
     my $whynot=