num.pl revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!/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{$_};
}