何か今日sed -iのようなことをしたくなったのですが、読み書き両用モード(+<)でopenしてseekしてtruncateして云々というのが面倒だったのでテンポラリファイル使ってごにょごにょしてしまいました。 すんなりできる方法を助言を頂きたく。。。 条件 ファイル一覧は、抽出条件が複雑なためスクリプト内で生成されます(コマンドラインから与えられません)。 できればコアモジュールだけで・・・ ※1番目の条件は、ファイル一覧抽出後にそれらを引数にしてexecするという手もありますね。と書いてみたものの、引数が多くなるとダメになってしまうので、この案は却下。 use File::Temp; use File::Copy; foreach my $file (qw(foo.txt)) { # open temporary file my $out = File::Temp->new; open