Import of old SSLeay release: SSLeay 0.8.1b
[openssl.git] / crypto / lhash / num.pl
1 #!/usr/local/bin/perl
2
3 #node     10 ->   4
4
5 while (<>)
6         {
7         next unless /^node/;
8         chop;
9         @a=split;
10         $num{$a[3]}++;
11         }
12
13 @a=sort {$a <=> $b } keys %num;
14 foreach (0 .. $a[$#a])
15         {
16         printf "%4d:%4d\n",$_,$num{$_};
17         }