1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#!/usr/bin/perl
use Getopt::Std;
# I received this without copyright, but have since been told by the owner
# that it is released into the public domain.
#
# Any changes I make are released into the public domain.
# - M. Drew Streib <dtype@dtype.org>
$COLOR = 0;
#uncomment this and set $COLOR = 1 if you have the right Perl module
#
#if ($COLOR) {
# use Term::ANSIColor;
#}
$| = 1;
$period = 10;
#Inter-| Receive | Transmit
# face |bytes packets errs drop fifo frame compressed multicast|bytes packets errs drop fifo colls carrier compressed
# lo: 2356 32 0 0 0 0 0 0 2356 32 0 0 0 0 0 0
# eth0: 1217210 9400 0 0 0 8 0 11 1207648 8019 0 0 0 0 0 0
# eth1: 2039952 21982 6 0 0 6 0 0 47000710 34813 0 0 0 821 0 0
my %opts;
my $iface;
getopts('i:n:t', \%opts) or
die("Usage: ethstats [-t] [-i iface] [-n period]\n");
$addtime = 1 if defined($opts{'t'});
if (defined($opts{'n'})) {
die("The period must be a positive integer\n")
unless $opts{'n'} =~ /^([1-9]\d*)$/;
$period = $1;
}
$iface = $opts{'i'}; # also works if it isn't defined
$op = $period;
$period = 1;
convert();
sleep $period;
while(1) {
convert();
print time()." " if($addtime==1);
if ($numdevs > 1) {
if ($COLOR) { print color 'yellow'; }
printf "total: %7.2f Mb/s In %7.2f Mb/s Out", $tkbin, $tkbout;
printf " - %8.1f p/s In %8.1f p/s Out", $tpackin, $tpackout;
if ($COLOR) { print color 'reset'; }
print "\n";
}
foreach $dev(sort keys %kbin) {
printf " %4s: %7.2f Mb/s In %7.2f Mb/s Out", $dev, $kbin{$dev}, $kbout{$dev};
printf " - %8.1f p/s In %8.1f p/s Out", $packin{$dev}, $packout{$dev};
print "\n";
}
$period = $op;
sleep $period;
}
sub convert {
open(IN, "/proc/net/dev") || die("Can't open ip_acct: $!\n");
<IN>; <IN>;
while($l = <IN>) {
chop($l);
($dev, $rest) = split(/:/, $l);
$dev =~ s/\s//g;
next if defined($iface) && $dev ne $iface;
$rest =~ s/^\s+//;
@devarr = split(/\s+/, $rest);
$bytesin{$dev} = @devarr[0]; $bytesout{$dev} = @devarr[8];
$packin{$dev} = @devarr[1]; $packout{$dev} = @devarr[9];
}
close(IN);
$numdevs = 0;
$tpackin = 0;
$tpackout = 0;
$tkbin = 0;
$tkbout = 0;
foreach $dev(sort keys %bytesin) {
next if($dev eq "lo");
$numdevs++;
# packets in/out
$packdiffin = ($packin{$dev} - $opackin{$dev});
$packdiffout = ($packout{$dev} - $opackout{$dev});
$packdiffin += 4294967296 if($packdiffin<0);
$packdiffout += 4294967296 if($packdiffout<0);
$opackin{$dev} = $packin{$dev};
$opackout{$dev} = $packout{$dev};
$packin{$dev} = $packdiffin / $period;
$packout{$dev} = $packdiffout / $period;
# bytes in/out
$diffin = ($bytesin{$dev} - $obytesin{$dev});
$diffout = ($bytesout{$dev} - $obytesout{$dev});
$diffin += 4294967296 if($diffin<0);
$diffout += 4294967296 if($diffout<0);
$obytesin{$dev} = $bytesin{$dev};
$obytesout{$dev} = $bytesout{$dev};
$kbin{$dev} = $diffin / $period / 1000000 * 8;
$kbout{$dev} = $diffout / $period / 1000000 * 8;
# increment totals
$tpackin += $packin{$dev};
$tpackout += $packout{$dev};
$tkbin += $kbin{$dev};
$tkbout += $kbout{$dev};
}
}
sub tquad {
$n = shift;
my $a = ($n & 0xff000000) >> 24;
my $b = ($n & 0x00ff0000) >> 16;
my $c = ($n & 0x0000ff00) >> 8;
my $d = $n & 0x000000ff;
return "$a.$b.$c.$d";
}
sub toquad {
$h = shift;
$h =~ /(\S\S)(\S\S)(\S\S)(\S\S)/;
$a = $1; $b = $2; $c = $3; $d = $4;
return sprintf("%d.%d.%d.%d", "0x$a", "0x$b", "0x$c", "0x$d");
}
|
