Traditional way:
perl -i -ne '[EMAIL PROTECTED],$_;eof&&[EMAIL PROTECTED]' in.file
>-------- Оригинално писмо --------
>От: Eirik Berg Hanssen <[EMAIL PROTECTED]>
>Относно: Re: Perl golf article at Perl Monks
>До: Ala Qumsieh <[EMAIL PROTECTED]>
>Изпратено на: Четвъвтък, 2005, Март 10 20:40:18 EET
>----------------------------------
>
>Ala Qumsieh <[EMAIL PROTECTED]> writes:
>
>> I came up with this:
>> perl -aF"\n" -lp0 -i -e '$_=join$\,[EMAIL PROTECTED]' 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?
>
> (It prints to screen because the special output file is no longer
>select()ed. But you all knew that.)
>
> My take:
>
>perl -ni -e 'eof&&print;$\=$_.$\' in.file
>
>
>Eirik
>--
>GUIs normally make it simple to accomplish simple actions and
>impossible to accomplish complex actions.
> -- Doug Gwyn (in comp.unix.wizards on June 22, 1991)
>
-----------------------------------------------------------------
http://gbg.bg/search - Изпробвайте още сега най-добрата българска търсачка!
