| March 2002 | Perl Hardware Store | 6 | 
Schwartzian Transform
We can get an easy speed improvement here:
Replace hashes { NAME => $_, DATE => -M $_ }
...with arrays [ $_, -M $_ ]
Also, we usually eliminate the temporary variables:
         @sorted_names = 
           map { $_->[0] }
           sort { $b->[1] <=> $a->[1] } 
           map { [ $_, -M $_ ] } 
           readdir D;
This is the Schwartzian Transform
| Next |  | Copyright © 2002 M-J. Dominus |