20 Feb
2021
20 Feb
'21
11:06 a.m.
On 2/20/21 2:25 AM, niftybunny wrote:
https://i.imgur.com/nDbaXqH.png https://i.imgur.com/nDbaXqH.png
https://i.imgur.com/Y5259wW.png https://i.imgur.com/Y5259wW.png
Yep, I do wonder if sth like
netstat --tcp -n -4 | perl -wane ' BEGIN { $Hist=(); } { next unless (m/^tcp/); ($Remote) = split(/:/, $F[4]); $Hist{$Remote}++; } END { foreach my $key (sort { $Hist{$b} <=> $Hist{$a} || $a cmp $b } keys %Hist) { printf("%-15s %5i\n", $key, $Hist{$key}) } }' | head -n 40
would help in any case ?
-- Toralf