[plug] Perl script ?

Timothy White weirdit at gmail.com
Mon Oct 31 19:15:07 WST 2005


On 10/31/05, Bernard Blackham <bernard at blackham.com.au> wrote:
> On Mon, Oct 31, 2005 at 12:14:37PM +0800, Alex Nordstrom wrote:
> > From man rename:
> >
> > To translate uppercase names to lower, you'd use
> >
> >                rename 'y/A-Z/a-z/' *
>
> Damn. I was going to play perlgolf, but I think that wins regardless :)
>
> Best I had was:
>         perl -e 'foreach(<*>){rename$_,lc}'
>
> Bernard.

You did pretty well. I think in perl, you may have won. Unfortunately,
when you have a C program to compete against, it's src .vs. binary...


Tim



More information about the plug mailing list