projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
30fedf9cd5ad8ae6e83fb290d572041bb7129fa9
[oweals/openssl.git]
/
num.pl
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
}