It is kept in $_. This lets you do Ctrl-Brk type processing easily when you match a
pattern to include in a new block.
e.g.
while (<FH> ) {
last if ( /Start of Data I want/);
}
push(@dataIwant,$_);
while (<FH>) {
last if ( /Start of next Data I want/ );
push(@dataIwant);
}
.
.
.
close(FH);
chomp is often handy here
-John
> ----------
> From: Bill Becker
> Sent: Sunday, June 15, 2003 10:06 AM
> To: [EMAIL PROTECTED]
> Subject: Re: [MacPerl] exiting a while() loop
>
> Well, I'd guess it's left hung out to dry. I don't think anything
> happens to it unless it happens to be a named pipe, or something. It
> it were, the next stage could be screwed.
>
> At 12:18 -0400 06/15/2003, Ronald J. Kimball wrote:
> >On Fri, Jun 13, 2003 at 10:20:57PM +0200, Thomas De Groote wrote:
> >> Add an extra variable and set that, like
> >>
> >> $exitloop = false;
> >> while(<FH> || $exitloop){
> >
> >What do you suppose happens to the input from <FH> in that line of code?
> >
> >Ronald
>
>
>
