Always always always:
use strict; use warnings;
(...) foreach $file (@sortlist){
my @sortlist = ... my %ipload =(); foreach my $file (@sortlist) {
open(LOG,$file) or die "Can't open $file: $!\n"; @lines = <LOG>;
my @lines = <LOG>;
foreach my $logline (reverse(@lines)) {
#Search for Host-IP-Adress and bytes if( $logline =~ / (\d+\.\d+\.\d+\.\d+) \w*\/\w* (\d+) [A-Z]+/ ){ if($ipload{$1}) {$ipload{$1}+=$2} else {$ipload{$1}=$2}
Wht not just $ipload{$1} += $2; instead of the if else?
} }
#Close log file
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>