Perl の grep sort map とか

Perlクックブック〈VOLUME1〉

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

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