#!/usr/local/bin/perl #node 10 -> 4 while (<>) { next unless /^node/; chop; @a=split; $num{$a[3]}++; } @a=sort {$a <=> $b } keys %num; foreach (0 .. $a[$#a]) { printf "%4d:%4d\n",$_,$num{$_}; }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 10713 | Robert Cowham |
Populate //guest/robert_cowham/openssl/1.0.1j/... from //guest/robert_cowham/openssl/main/.... |
||
//guest/robert_cowham/openssl/main/crypto/lhash/num.pl | |||||
#1 | 10711 | Robert Cowham | OpenSSL 1.0.1i |