7 my($IFDEV,$SECS)=@ARGV;
10 my $IGNORE=qr/^(?:lo|sit|pan|tun|tap|wmaster|sixxs|virbr)\d*$/;
13 # $if->{"rx"=>,"tx"=>}
19 open F,"/proc/net/dev" or die;
20 my $dev=do { local $/; <F> or die; };
22 $dev=~s/^Inter-.*\n face .*\n// or die $dev;
24 while ($dev=~s/^\s*(\S+?):\s*(\d+)(?:\s+\d+){7}\s+(\d+)\s.*\n//) {
25 my($if,$rx,$tx)=($1,$2,$3);
26 next if $IFDEV && $if ne $IFDEV;
27 next if !$IFDEV && $if=~/^$IGNORE$/o;
30 if (defined $last->{"rx"}) {
35 if ($last_if ne $if) {
52 print fmt($rx,$last->{"rx"})."\t".fmt($tx,$last->{"tx"})."\n";