知らなかった。
404 Blog Not Found:perl - stat()、-X 演算子、そして _ ファイルハンドル
一つのファイルハンドルに対して複数回テスト演算子を呼ぶ場合は"_"で使い回せる、ということか。
$ ll total 16 drwxr-xr-x 2 sugyan staff 68 6 4 20:26 fuga -rw-r--r-- 1 sugyan staff 5 6 4 20:14 hoge -rw-r--r-- 1 sugyan staff 25 6 4 20:21 piyo $ perl -le '-f $a && print "$a:", -s $a while $a = shift' * hoge:5 piyo:25 $ perl -le '-f $a && print "$a:", -s _ while $a = shift' * hoge:5 piyo:25
で、5.10以降なら-X演算子を連続で適用させることができる、と。
$ /usr/bin/perl5.8.9 -le '-e -f and print for @ARGV' * $ /usr/bin/perl5.10.0 -le '-e -f and print for @ARGV' * hoge piyo
なるほどー。
