#!/usr/bin/perl

# Bandwidth Monitor

my $IFACE = 'eth0';
my $refresh = 5;

my ( $i_r_bytes, $i_r_packets, $i_t_bytes, $i_t_packets ) = get_data($
+IFACE);
my $time = time();

while(1) {
    my ( $c_rb, $c_rp, $c_tb, $c_tp ) = get_data($IFACE);
    my $r_time = (time() - $time)||1;
    printf "$IFACE (Rec/Tran) %d/%d Bytes/sec %d/%d Packets/sec\r",
        ($c_rb - $i_r_bytes )/$r_time,
        ($c_tb - $i_t_bytes  )/$r_time,
        ($c_rp - $i_r_packets  )/$r_time,
        ($c_tp - $i_t_packets  )/$r_time;
    sleep $refresh;
}

sub get_data {
    my ( $IFACE ) = @_;
    my $data = `grep $IFACE /proc/net/dev`;
    #                Rec bytes  Rec packets          Tran byte Tran pa
+ckets
    #$data = '  eth0:2076483379 19236568 0 0 0 0 0 0 745096530 4559286
+ 0 0 0 0 0 0';
    return (split /\s+|:/, $data)[2,3,10,11];
}
[download]