RE: Perl golf article at Perl Monks

perl -pi -e '$_=<>.$_;eof||redo' in.file

> -----Original Message-----
> From: Ala Qumsieh [mailto:[email protected]]
> Sent: Thursday, March 10, 2005 11:49 AM
> To: Jasper
> Cc: [email protected]
> Subject: Re: Perl golf article at Perl Monks
> 
> 
> 
> --- Jasper <[email protected]> wrote:
> 
> > Nice. Perhaps it'll prompt a new compo soon :)
> 
> Ahhh .. how I long for the good old days.
> Speaking of that, there was a post yesterday on
> comp.lang.perl.misc asking about a one-liner to
> reverse the lines in a file in-place. So the input
> file itself must be modified and no other files must
> be created.
> 
> I came up with this:
> perl -aF"\n" -lp0 -i -e '$_=join$\,reverse@F' in.file
> 
> But then, I remembered Eugene's (in)famous solution to
> reverse sort, but couldn't get it to work:
> 
> perl -pi -e '$x=$_.$x}{$_=$x' in.file
> 
> This prints to screen, not back to the file.
> Any takers?
> 
> --Ala
> 
> 
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam protection around 
> http://mail.yahoo.com 
> 
>