You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
212 B
18 lines
212 B
4 years ago
|
#!/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{$_};
|
||
|
|
}
|