| Current Path : /usr/src/crypto/openssl/crypto/lhash/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //usr/src/crypto/openssl/crypto/lhash/num.pl |
#!/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{$_};
}