Re: sort files by extension

[James Edward Gray II]

On Jul 28, 2004, at 2:26 PM, [EMAIL PROTECTED] wrote:

Maybe I'm missing something but since you're doing Schwartzian Transformation
already why call lc() every time?

@input = map { $_->[0] }
              sort { $a->[1] cmp $b->[1] }
              map { m/\.([^.]+)$/ ? [$_, lc($1)] : [$_, ''] } @input;

Good point.  You're way is more efficient.

James

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>