Parent Directory | Revision Log | Patch
revision 1.1 by dpavlin, Mon May 20 16:00:03 2002 UTC | revision 1.3 by dpavlin, Mon May 20 16:31:01 2002 UTC | |
---|---|---|
# | Line 38 close(LOG); | Line 38 close(LOG); |
38 | ||
39 | foreach my $port (@PORTS) { | foreach my $port (@PORTS) { |
40 | print @{$hash{$port}}[0] || 0,"\n",@{$hash{$port}}[1] || 0,"\n"; | print @{$hash{$port}}[0] || 0,"\n",@{$hash{$port}}[1] || 0,"\n"; |
41 | delete $hash{$port}; | |
42 | } | } |
43 | ||
44 | my ($sum_in,$sum_out) = (0,0); | |
45 | ||
46 | foreach my $port (keys %hash) { | |
47 | $sum_in+=@{$hash{$port}}[0]; | |
48 | $sum_out+=@{$hash{$port}}[1]; | |
49 | } | |
50 | print "$sum_in\n$sum_out\n"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |