インデックスデータベース完成記念バックアップ♪

[wordring-tm/wordring-tm.git] / third-party / openssl-1.0.2d / crypto / lhash / num.pl

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