Modified source engine (2017) developed by valve and leaked in 2020. Not for commercial purporses
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/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{$_}; |
|
}
|
|
|
