Reading lines from external files

[Meatsim]

Hello folks, thanks for your help on earlier problems. I have another one - when reading data from a file, how do you skip to the next line? Right now I have a

while(<INPUTFILE>)

solution going, but is there a command that loads the next line of the file, unrelated to while loops? Like nextline(<INPUTFILE>) or something?

Thanks,
Meatsim

 

[mbaranski]

Sure, just

while(<INPUTFILE>)
{
#do your stuff
if(youWannaSkip)
{
$junk = <INPUTFILE>
}
}
Disclaimer:
Beware: Studies have shown that research causes cancer in lab rats.

 

[tsdragon]

Or you can just say &quot;next;&quot; inside of the loop. For example, this will skip all blank lines and print the rest:

while ( <INPUTFILE> ) {
   next if /\A\s*\Z/;
   print;
}

Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.

 

[Meatsim]

Thank you both very much!

 

[Meatsim]

One quick question - in mbaranski's code snippet, is the next line of <INPUTFILE> actually stored in $junk, or is whatever keeps track of <INPUTFILE> just scrolled forward a line?

Thanks!
-Meatsim

 

[raider2001]

The line '$junk = <INPUTFILE>;' says the following:

Take the next line from the file handle 'INPUTFILE' and store it in $junk.