Revision 4bc991384404d05e49e3aa622c142c7b7d05ef7b authored by Matt Caswell on 22 January 2015, 01:02:03 UTC, committed by Matt Caswell on 22 January 2015, 09:46:26 UTC
Reviewed-by: Tim Hudson <tjh@openssl.org>
1 parent a8b966f
num.pl
#!/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{$_};
}
Computing file changes ...
