add: execute openssl fetcher to fetch openssl 1.0.1j

[cassiopeia.git] / lib / openssl / crypto / lhash / num.pl

diff --git a/lib/openssl/crypto/lhash/num.pl b/lib/openssl/crypto/lhash/num.pl
new file mode 100644 (file)
index 0000000..30fedf9
--- /dev/null
+++ b/lib/openssl/crypto/lhash/num.pl
@@ -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{$_};
+       }