diff options
Diffstat (limited to 'src/lib/libcrypto/lhash/num.pl')
-rw-r--r-- | src/lib/libcrypto/lhash/num.pl | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/lib/libcrypto/lhash/num.pl b/src/lib/libcrypto/lhash/num.pl deleted file mode 100644 index 30fedf9cd5..0000000000 --- a/src/lib/libcrypto/lhash/num.pl +++ /dev/null | |||
@@ -1,17 +0,0 @@ | |||
1 | #!/usr/local/bin/perl | ||
2 | |||
3 | #node 10 -> 4 | ||
4 | |||
5 | while (<>) | ||
6 | { | ||
7 | next unless /^node/; | ||
8 | chop; | ||
9 | @a=split; | ||
10 | $num{$a[3]}++; | ||
11 | } | ||
12 | |||
13 | @a=sort {$a <=> $b } keys %num; | ||
14 | foreach (0 .. $a[$#a]) | ||
15 | { | ||
16 | printf "%4d:%4d\n",$_,$num{$_}; | ||
17 | } | ||