1*0Sstevel@tonic-gate#!/usr/local/bin/perl 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gate#node 10 -> 4 4*0Sstevel@tonic-gate 5*0Sstevel@tonic-gatewhile (<>) 6*0Sstevel@tonic-gate { 7*0Sstevel@tonic-gate next unless /^node/; 8*0Sstevel@tonic-gate chop; 9*0Sstevel@tonic-gate @a=split; 10*0Sstevel@tonic-gate $num{$a[3]}++; 11*0Sstevel@tonic-gate } 12*0Sstevel@tonic-gate 13*0Sstevel@tonic-gate@a=sort {$a <=> $b } keys %num; 14*0Sstevel@tonic-gateforeach (0 .. $a[$#a]) 15*0Sstevel@tonic-gate { 16*0Sstevel@tonic-gate printf "%4d:%4d\n",$_,$num{$_}; 17*0Sstevel@tonic-gate } 18