Alexandre Savard | 1b09e31 | 2012-08-07 20:33:29 -0400 | [diff] [blame] | 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 | } |