I knew I would learn something from you guys, and so far I have :-)
Thanks, everyone :-)
On Mon, 2004-04-26 at 18:27, A. Pagaltzis wrote:
> * Jose Alves De Castro <[EMAIL PROTECTED]> [2004-04-26 18:36]:
> > #!/usr/bin/perl -l0n
> > /:/;$_{$'.$&}.=" $`,"}{map{s/,$/
> > /;print}%_
>
> Trivial improvement, for a gain of 5 chars:
>
> #!/usr/bin/perl -l0p
> /:/;$_{$'.$&}.=" $`,"}for(%_){s/,$/
> /;
>
> I've tried other clever things, but they all come out longer.
--
Josà Alves de Castro <[EMAIL PROTECTED]>
Telbit - Tecnologias de InformaÃÃo
