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 } 18
