canon: print total rows

diff --git a/yarrg/canon b/yarrg/canon
index e97014aa9ec0882409abf6b347a54cd3d1e5a087..cb6b980c0189cff0fc5c8e5ccd8bfd3c8dcd98f3 100755 (executable)
--- 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=