third-party libs
This commit is contained in:
parent
f836927d3a
commit
b154ee9266
3667 changed files with 854591 additions and 0 deletions
17
third-party/openssl-1.0.0d/crypto/lhash/num.pl
vendored
Normal file
17
third-party/openssl-1.0.0d/crypto/lhash/num.pl
vendored
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
#!/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{$_};
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue