projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Update from HEAD.
[oweals/openssl.git]
/
crypto
/
lhash
/
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
}