Re: move down 2 lines in file?

Hmm, not sure about this method, but it works in theory.

open (file.....)
while (<FILE>) {
   $. = 2; # $. holds the number of the last read line
   .....
[download]

I am not sure if it should be the one I posted above or next if $. == 1 or if $. == 2 though. I have no time to check right now. (Also, I am not sure if it starts counting at 0 or 1. Change the numbers accordingly

<(^.^-<) <(-^.^<) <(-^.^-)> (>^.^-)> (>-^.^)>

Comment on Re: move down 2 lines in file? Select or Download Code

Replies are listed 'Best First'.
Re^2: move down 2 lines in file? by halley (Prior) on Jul 11, 2008 at 18:46 UTC
Changing `$.` does not move the file pointer. The only way to skip ahead without actually reading would be to use `seek()` which doesn't mix well with buffered variable-length line-oriented operations. -- `[ e d @ h a l l e y . c c ]`	[reply] [d/l] [select]
Re^3: move down 2 lines in file? by Lawliet (Curate) on Jul 11, 2008 at 19:30 UTC
Oh, alright. I thought my idea was pretty cool though~ Can you (or anyone) confirm if the `next if...` method works? `<(^.^-<) <(-^.^<) <(-^.^-)> (>^.^-)> (>-^.^)>`	[reply] [d/l] [select]
Re^4: move down 2 lines in file? by johngg (Canon) on Jul 11, 2008 at 22:13 UTC
Yes, you could do it like that:- `my $linesToSkip = 2; while ( <FILE> ) { next if 0 < $linesToSkip --; # Do something here with the lines of interest. ... }` [download] I'd rather segregate the discarding of header lines (or whatever) from the processing of lines I'm interested in. `my $linesToSkip = 2; my $discard = <FILE> for 1 .. $linesToSkip; while ( <FILE> ) { # Do something here with the lines of interest. ... }` [download] I hope this is of interest. Cheers, JohnGG Update: Fixed typo.	[reply] [d/l] [select]


The stupid question is the question not asked
	PerlMonks