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