mirror of
https://github.com/nillerusr/source-engine.git
synced 2024-12-26 16:16:58 +00:00
18 lines
212 B
Raku
18 lines
212 B
Raku
#!/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{$_};
|
|
}
|