num.pl revision 55714
155714Skris#!/usr/local/bin/perl 255714Skris 355714Skris#node 10 -> 4 455714Skris 555714Skriswhile (<>) 655714Skris { 755714Skris next unless /^node/; 855714Skris chop; 955714Skris @a=split; 1055714Skris $num{$a[3]}++; 1155714Skris } 1255714Skris 1355714Skris@a=sort {$a <=> $b } keys %num; 1455714Skrisforeach (0 .. $a[$#a]) 1555714Skris { 1655714Skris printf "%4d:%4d\n",$_,$num{$_}; 1755714Skris } 18