From 06f4d95a06094226aa726eb25a993205eac2534a Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Mon, 24 Jan 2011 15:25:45 +0000 Subject: [PATCH] canon: print total rows --- yarrg/canon | 1 + 1 file changed, 1 insertion(+) 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= -- 2.30.2