[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [FWP] The Perl Golf Apocalypse Experience

At 15:20 02/08/00, Tim Ayers wrote:
>  + "Backup" files in a directory tree to *.bak
>
>     perl -e'sub x{($a)=@_;(-f)?(open(A,$_),open(B,">$_.bak"),print 
> B<A>):x($_)for<$a/*>}x(shift)' <directory>

is this cheating?

perl -e'sub x{($a)=@_;(-f)?(`perl -pi.bak -e '' $_`):x($_)for<$a/*>}x(shift)'

Fergal


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe