/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

481 votes320 views10 answers
December global holidays
Shell/Bash
7 votes189 views6 answers
Uninstall mongodb ubuntu
Shell/Bash
31 votes189 views6 answers
Replace using sed
Shell/Bash
0 vote248 views1 answer
Unetbootin ubuntu install
Shell/Bash
69 votes182 views1 answer
Git override remote origin
Shell/Bash
13 votes175 views6 answers
Grep text in files
Shell/Bash
0 vote174 views1 answer
Lilypichu
Shell/Bash
0 vote183 views3 answers
Mac install cassandra
Shell/Bash
12 votes197 views1 answer
Git ignore chmod
Shell/Bash
1 vote162 views1 answer
Cannot retrieve metalink for repository: epel/i386. Please verify its path and try again
Shell/Bash