/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

112 votes129 views3 answers
Set up git repository
Shell/Bash
0 vote113 views2 answers
Git diff exclude file
Shell/Bash
1 vote117 views2 answers
Install curl mac
Shell/Bash
0 vote110 views1 answer
Validate ssl certificate on website using curl
Shell/Bash
1 vote118 views1 answer
Where does pip install packages linux
Shell/Bash
-1 vote117 views1 answer
Pull branch from github
Shell/Bash
0 vote118 views1 answer
Bash: cd: too many arguments
Shell/Bash
1 vote113 views1 answer
Git command show current repo
Shell/Bash
0 vote113 views1 answer
What is %prec in yacc
Shell/Bash
1 vote158 views1 answer
Pip install fails with connection error ssl
Shell/Bash