Re^2: Need to skip two lines


Do you know where your variables are?
	PerlMonks

Re^2: Need to skip two lines

by codeacrobat (Chaplain)

on May 06, 2009 at 05:52 UTC ( [id://762168]=note: print w/replies, xml )

Need Help??

in reply to Re: Need to skip two lines
in thread Need to skip two lines

This is how you skip lines without affecting the rest of the outer while loop.

while(<DATA>){
   if (/2/){
      my $skip=2;
      print "skipping $skip lines\n";
      <DATA> while $skip-- >0 and not eof DATA;
      next;
   }
   if (/5/){
      print "high five\n"; next;
   }
   if (/3/){
      print "I am not here\n"; next;
   }
   print;
}

__DATA__
1
1
2
3
4
4
5
[download]