On Jun 25, Aaron Craig said:
>In the spirit of TMTOWTDI -
>
>At 07:20 25.06.2001 -0700, Paul wrote:
>>the brute force approach: =o)
>>
>> open IN, $file or die $!;
>> open OUT, ">$new" or die $!;
>> print OUT $line while defined($line=<IN>);
>> close OUT;
>> close IN;
>
>print OUT $_ while (<IN>);
In the spirit of less punctuation, and more defaults:
print OUT while <IN>;
:)
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
I am Marillion, the wielder of Ringril, known as Hesinaur, the Winter-Sun.
Are you a Monk? http://www.perlmonks.com/ http://forums.perlguru.com/
Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/
Acacia Fraternity, Rensselaer Chapter. Brother #734
** Manning Publications, Co, is publishing my Perl Regex book **
