/Shell/Bash/Tcp traffic analysis linux command line mb per second

Tcp traffic analysis linux command line mb per second

#!/usr/bin/perl
# traffic analysis script using tcpdump
use strict;
use warnings;
use Time::HiRes;

my $reporting_interval = 10.0; # seconds
my $bytes_this_interval = 0;
my $start_time = [Time::HiRes::gettimeofday()];

STDOUT->autoflush(1);

while (<>) {
  if (/ length (\d+):/) {
    $bytes_this_interval += $1;
    my $elapsed_seconds = Time::HiRes::tv_interval($start_time);
    if ($elapsed_seconds > $reporting_interval) {
       my $bps = $bytes_this_interval / $elapsed_seconds;
       printf "%02d:%02d:%02d %10.2f Bps\n", (localtime())[2,1,0],$bps;
       $start_time = [Time::HiRes::gettimeofday()];
       $bytes_this_interval = 0;
    }
  }
}

Source: superuser.com

Similar codes

0 vote296 views1 answer
Grant user root permissions oracle linux
Shell/Bash
0 vote290 views1 answer
Get last line from string powershell
Shell/Bash
3 votes266 views4 answers
Git bash anaconda
Shell/Bash
0 vote293 views1 answer
How to add comments to iptables rules?
Shell/Bash
0 vote310 views1 answer
Monit network request in ubuntu
Shell/Bash
12 votes328 views3 answers
How is linux
Shell/Bash
7 votes301 views3 answers
Git bash mac
Shell/Bash
0 vote274 views1 answer
ModuleNotFoundError: No module named 'weasyprint'
Shell/Bash
7 votes306 views3 answers
Install pygame on mac
Shell/Bash
5 votes338 views4 answers
Github show current branch
Shell/Bash