Subscribed unsubscribe Subscribe Subscribe

特殊ファイルハンドル"_"

Perl

知らなかった。
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

なるほどー。