summaryrefslogtreecommitdiff
path: root/ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl
diff options
context:
space:
mode:
authorParménides GV <parmegv@sdf.org>2014-11-04 20:45:42 +0100
committerParménides GV <parmegv@sdf.org>2014-11-04 20:45:42 +0100
commit5304543ebd60778ad46123cd63142e27627fa150 (patch)
treeb07723b530e20b23ae83de822387f6551ea7f9f4 /ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl
parent713c3a98f53a6bd1ad94e90f28d3e37d20abfab9 (diff)
Update ics-openvpn to rev 906.
Diffstat (limited to 'ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl')
-rw-r--r--ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl17
1 files changed, 17 insertions, 0 deletions
diff --git a/ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl b/ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl
new file mode 100644
index 00000000..30fedf9c
--- /dev/null
+++ b/ics-openvpn-stripped/main/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{$_};
+ }