・空のファイルハンドルに対する行入力演算子 <> で、@ARGV にセットされた ファイルを読み込む。 open F,"$f.txt";@l=<F> @ARGV="$f.txt";@l=<> ・opendir の代わりに glob を使う。 opendir D,$d="./dir";@f=map"$d/$_",grep/\.txt/,readdir D; @f=<./dir/*.txt>; ・読込オープン時は一引数の open を使う (ファイルハンドルと同名の変数 にファイル名を代入しておく) 。 $F='logfile';open F; ・開かれていないファイルハンドルへの flock や seek 、書込オープンされて いないファイルハンドルへの truncate はスルーされる。-> 7wiki etc. ・同名のファイルハンドルを open し直すなら close は要らない。 ・$/ = undef; の代わりに、入力にはまず含まれそうにない文字列を代入する。 put$/=header,start_html(-style,{Code,<DATA>}, ... ・CLI用のスクリプトでは、print の代わりに warn、die、say が使えるかも しれない。