Re: Processing lines after a pattern in a while loop


The stupid question is the question not asked
	PerlMonks

by kvale (Monsignor)

on Apr 05, 2004 at 16:38 UTC ( #342679=note: print w/replies, xml )

Need Help??

Here is an easy way to skip the header:

while(<DATA>){
   last if /^#cardtype$/;
}
while(<DATA>){
   # start processing here
}
[download]

-Mark

Comment on Re: Processing lines after a pattern in a while loop Download Code

Replies are listed 'Best First'.
Re: Re: Processing lines after a pattern in a while loop by tilly (Archbishop) on Apr 05, 2004 at 17:42 UTC
And this is the solution that I would use. It is straightforward. It separates out loops which serve different purposes. It avoids the synthetic variable. What's not to like...?	[reply]
Re: Re: Processing lines after a pattern in a while loop by halley (Prior) on Apr 06, 2004 at 14:41 UTC
This is where I wish the magic `while (<fh>)` was a bit more inclusive, or a bit less special, or something. Too bad this doesn't work, because it sure makes for a readable idiom: `<DATA> until /^#cardtype/; while (<DATA>) { ... }` [download] The closest readable alternative that works seems to be: `1 until <DATA> =~ /^#cardtype/; while (<DATA>) { ... }` [download] -- `[ e d @ h a l l e y . c c ]`	[reply] [d/l] [select]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://342679]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others cooling their heels in the Monastery: (6)

As of 2023-12-11 21:34 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?