论坛 › Perl › Perl Snippet

asfsd 发表于 2017-5-16 12:06:57

Perl Snippet

　　@filelist = map {$_->} sort {$a-> <=> $b->} map {[$_, (stat $_) ]} @filelist;
　　前几天看到如上一行Perl代码， 其作用是将给定一个文件名列表，根据文件的最后修改时间排序。 看过之后
　　突然想起《明朝那些事》中的一句话：“越接近对方的水平，就越了解对方的强大，就会越来越畏惧”。在体会Perl
　　代码简洁的特点之余，我对这段代码的作者也心生敬意。

查看完整版本: Perl Snippet