mirror of
https://github.com/oxen-io/session-android.git
synced 2024-12-18 22:17:30 +00:00
18 lines
212 B
Perl
18 lines
212 B
Perl
|
#!/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{$_};
|
||
|
}
|