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