X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=third-party%2Fopenssl-1.0.2d%2Fcrypto%2Flhash%2Fnum.pl;fp=third-party%2Fopenssl-1.0.2d%2Fcrypto%2Flhash%2Fnum.pl;h=30fedf9cd5ad8ae6e83fb290d572041bb7129fa9;hb=3d0f5661d0cd3583f7d7b0b8158703b6cb3a4e4d;hp=0000000000000000000000000000000000000000;hpb=071cc1ce9be277e9175381194150b7b5461bd586;p=wordring-tm%2Fwordring-tm.git

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
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{$_};
+	}