1656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project#!/usr/local/bin/perl 2656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 3656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project#node 10 -> 4 4656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 5656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectwhile (<>) 6656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 7656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project next unless /^node/; 8656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project chop; 9656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project @a=split; 10656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project $num{$a[3]}++; 11656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 12656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project 13656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project@a=sort {$a <=> $b } keys %num; 14656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Projectforeach (0 .. $a[$#a]) 15656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project { 16656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project printf "%4d:%4d\n",$_,$num{$_}; 17656d9c7f52f88b3a3daccafa7655dec086c4756eThe Android Open Source Project } 18