Perl の grep sort map とか

Perlクックブック〈VOLUME1〉

レシピ9.5 ディレクトリ内のすべてのファイルを処理する
P.444
の grep、map、sort をつなげてフィルタ処理する書き方が便利そうだなと思ったので試してみた。

$ perl -e '@array=(1,2,3,4,5,6,7,8,9,10); map{printf(qq/%02d\n/,$_)} sort{$b<=>$a} grep{$_<5} @array'
04
03
02
01

こんな具合に。それだけです。