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         }