That's what I love about Perl..... TMTOWTDI !!!
-
my $counter = 0;
-
-
open(FILE, "<file.txt") or die "$!";
-
-
LOOP: while(<FILE>) {
-
if($counter = 0){
-
$counter++;
-
next LOOP;
-
}
-
-
.... the rest of your code...
-
}
-
Just another way of doing it using a counter. The first time through it will read a line, check the counter, which is equal to zero, iterate the counter and then grab the next line and continue processing.
Regards,
Jeff