March 2002 Perl Hardware Store 5

  1. Schwartzian Transform


         @names = readdir D;
         @names_and_dates = 
           map { { NAME => $_, DATE => -M $_ } } 
           @names;
         @sorted_names_and_dates = 
           sort { $b->{DATE} <=> $a->{DATE} } 
           @names_and_dates;
         @sorted_names = 
           map { $_->{NAME} } 
           @sorted_names_and_dates;


Next Copyright © 2002 M-J. Dominus