Nested while loop won't repeat

numlock00

I have a nested 'while' loop that won't repeat, no matter how many times the outer loop repeats. The outer loop reads through an array of elements; the inner loop Ithe 'while' loop) is supposed to apply each of these elements while reading an input file.

The outer loop is working fine. It will run through every element of the array. The inner loop, however, only runs once. Even though the outer loop finishes inormally, the inner loop does not repeat.

Here it is:

Expand|Select|Wrap|Line Numbers

 
foreach $hour (@hourRange) {

    $timeBlock = $timeDateBase . $hour;

    print "$timeBlock\n";
 
    while (<LOG>) {

        chomp;

        if ($_ =~ /$timeBlock/) {

            print "$timeBlock\n";

            ($a,$b,$c) = split(/"/, $_);

            if ($a =~ /^(\S+)\s-\s-\s\[(\S+)\s/) {

                $IP = $1;

                $timeString = $2;

                print "$IP\n";

                print "$timeString\n";

            }    

        }

    }

}

nithinpes

You are using LOG filehandle in the while() loop. Where are you opening the file?
However, in the first iteration of foreach() loop itself, entire content of file would be read(EOF would be reached) and it would not be available to be read in the second iteration.
To avoid this, open() function for opening file should be declared within foreach loop and the file handle should be closed before going for next iteration of foreach loop. So that, file will be opened and read with each iteration of foreach() loop.

Expand|Select|Wrap|Line Numbers

 
foreach $hour (@hourRange) {

$timeBlock = $timeDateBase . $hour;

print "$timeBlock\n";
 
open(LOG,"logfile.txt") or die "cannot open:$!";
 
while (<LOG>) {

chomp;

if ($_ =~ /$timeBlock/) {

print "$timeBlock\n";

($a,$b,$c) = split(/"/, $_);

if ($a =~ /^(\S+)\s-\s-\s\[(\S+)\s/) {

$IP = $1;

$timeString = $2;

print "$IP\n";

print "$timeString\n";

} 

}

}

close(LOG);

}

KevinADC

or he can use seek() to return to the beginning of the file.

numlock00

Thank you. Your recommendation worked. I eventually used seek() instead because it seemed more economical, but the logic is the same in both cases. Your help is much appreciated.

numlock00

Quote:

Originally Posted by nithinpes

You are using LOG filehandle in the while() loop. Where are you opening the file?
However, in the first iteration of foreach() loop itself, entire content of file would be read(EOF would be reached) and it would not be available to be read in the second iteration.
To avoid this, open() function for opening file should be declared within foreach loop and the file handle should be closed before going for next iteration of foreach loop. So that, file will be opened and read with each iteration of foreach() loop.

Expand|Select|Wrap|Line Numbers

 
foreach $hour (@hourRange) {

$timeBlock = $timeDateBase . $hour;

print "$timeBlock\n";
 
open(LOG,"logfile.txt") or die "cannot open:$!";
 
while (<LOG>) {

chomp;

if ($_ =~ /$timeBlock/) {

print "$timeBlock\n";

($a,$b,$c) = split(/"/, $_);

if ($a =~ /^(\S+)\s-\s-\s\[(\S+)\s/) {

$IP = $1;

$timeString = $2;

print "$IP\n";

print "$timeString\n";

} 

}

}

close(LOG);

}

Nested while loop won't repeat

re: Nested while loop won't repeat

re: Nested while loop won't repeat

re: Nested while loop won't repeat

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about