From 5304543ebd60778ad46123cd63142e27627fa150 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Parm=C3=A9nides=20GV?= Date: Tue, 4 Nov 2014 20:45:42 +0100 Subject: Update ics-openvpn to rev 906. --- ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl (limited to 'ics-openvpn-stripped/main/openssl/crypto/lhash/num.pl') 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{$_}; + } -- cgit v1.2.3