chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
canon: print total rows
[ypp-sc-tools.main.git]
/
yarrg
/
canon
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=