Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
common
/
openssl
/
crypto
/
lhash
/
num.pl
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
num.pl revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!/
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
{$_};
}