Perl Snippet

    @filelist = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map {[$_, (stat $_)[9] ]} @filelist;

 

     前几天看到如上一行Perl代码， 其作用是将给定一个文件名列表，根据文件的最后修改时间排序。 看过之后

 

突然想起《明朝那些事》中的一句话：“越接近对方的水平，就越了解对方的强大，就会越来越畏惧”。在体会Perl

 

代码简洁的特点之余，我对这段代码的作者也心生敬意。