and added files

[bcm963xx.git] / userapps / opensource / openssl / crypto / lhash / num.pl

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