in reply to Re: foreach question
in thread foreach question

Thanks, I suspected as much, but wanted to make sure. In the code, the loop actually just appends $line to a string, so I suspect the effect of the foreach is not what the author had in mind.

Replies are listed 'Best First'.
Re: Re: Re: foreach question
by BigLug (Chaplain) on Feb 25, 2003 at 04:46 UTC
    That's what people call a 'slurp'. There's many ways to do it and if you search PerlMonks for 'slurp' you'll find them. Here's one I cooked up earlier: 
    # FILE is already open ...
{
   local $/ = undef;
   $slurp = <FILE>;
}

    [download]
    Much better (and faster) than using joins, or loops to append. Keep it inside the {} block so that the change to $/ is only temporary. (also see $/ at perldoc). The file's entire content ends up in $slurp.
[reply]
[d/l]

In Section Seekers of Perl Wisdom