Perl Snippet

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

 

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

 

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

 

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

评论

3 楼 luolonghao 2008-09-24  

等价代码:
my @list;
foreach (@filelist) {
    push @list, [$_, (stat $_)[9]];
}
@list = sort {$a->[1] <=> $b->[1]} @list;
@filelist;
foreach (@list) {
    push @filelist, $_->[0];
}

2 楼 jackywjj 2008-09-23  

搂主能解释一下吗？

1 楼 icecongeal 2008-09-23  

说得好～