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