Nigel Metheringham wrote:
> On Fri, 2006-06-23 at 16:10 +0200, Daniel Tiefnig wrote:
>> Gareth Hastings wrote:
>>> cat file | awk -F. '{print $4"."$3"."$2"."$1}'
>>>
>>> (Less typing than above!!!!)
>> UUOCAP (useless use of cat and pipe):
>>
>> awk -F. '{print $4"."$3"."$2"."$1}' file
>
> for perl aficionados...
> perl -ne 'chomp;print join(".",reverse(split(/\./)),"\n"' file
I see, you've never played golf before.
perl -ple'$_=join".",reverse split/\./' file
or
perl -F\\. -aple'$_=join".",[EMAIL PROTECTED]' file
The dot is a little show-stopper here, and its still not shorter than
the awk above.
Another approach:
perl -F\\. -alne'$,=".";print [EMAIL PROTECTED]' file
> which is neither shorter, more comprehensible or more obvious than
> the awk version... so I'm not sure why I posted it.
Because it's Perl, what else does it need? :o)
lg,
daniel
--
## List details at http://www.exim.org/mailman/listinfo/exim-users
## Exim details at http://www.exim.org/
## Please use the Wiki with this list - http://www.exim.org/eximwiki/
