summaryrefslogtreecommitdiffstats
path: root/crypto/lhash/num.pl
blob: 4440a992dccd4ac84f3531d85b11df2155997af7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/local/bin/perl

#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{$_};
	}