diff options
Diffstat (limited to 'openssl-1.1.0h/crypto/lhash/num.pl')
-rw-r--r-- | openssl-1.1.0h/crypto/lhash/num.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/openssl-1.1.0h/crypto/lhash/num.pl b/openssl-1.1.0h/crypto/lhash/num.pl new file mode 100644 index 0000000..8a8c42c --- /dev/null +++ b/openssl-1.1.0h/crypto/lhash/num.pl @@ -0,0 +1,23 @@ +#! /usr/bin/env perl +# Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved. +# +# Licensed under the OpenSSL license (the "License"). You may not use +# this file except in compliance with the License. You can obtain a copy +# in the file LICENSE in the source distribution or at +# https://www.openssl.org/source/license.html + +#node 10 -> 4 + +while (<>) + { + next unless /^node/; + s|\R$||; # Better chomp + @a=split; + $num{$a[3]}++; + } + +@a=sort {$a <=> $b } keys %num; +foreach (0 .. $a[$#a]) + { + printf "%4d:%4d\n",$_,$num{$_}; + } |