Re: to copy a file (with perl)

[Aaron Craig]

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>);
Aaron Craig
Programming
iSoftitler.com