Parent Directory | Revision Log | Patch
revision 35 by dpavlin, Sun May 27 09:14:14 2007 UTC | revision 36 by dpavlin, Sun May 27 15:30:12 2007 UTC | |
---|---|---|
# | Line 109 while ( 1 ) { | Line 109 while ( 1 ) { |
109 | foreach ( split(/\n/, $net) ) { | foreach ( split(/\n/, $net) ) { |
110 | s/^\s+//; | s/^\s+//; |
111 | my @n = split(/\s+/, $_, 17); | my @n = split(/\s+/, $_, 17); |
112 | next unless ( $n[0] =~ m!(eth\d|ath\d):! ); | next unless ( $n[0] =~ s!(eth\d|ath\d):!! ); |
113 | ||
114 | warn dump( @n ) if ($debug); | warn dump( @n ) if ($debug); |
115 | $rx += $n[1]; | $rx += $n[0]; |
116 | $tx += $n[9]; | $tx += $n[8]; |
117 | } | } |
118 | warn "rx: $rx tx: $tx\n" if ($debug); | warn "rx: $rx tx: $tx\n" if ($debug); |
119 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |