4

Perl では、印刷に標準コマンドを使用します。

print "text"; # STDOUT
print STDOUT "text";
print STDERR "text";

別のファイルSTDOUTとの間のリダイレクトを動的に変更するにはどうすればよいですか?STDERR

$iから$minへの単純なループがあり、リダイレクトをファイルとファイル$maxへの動的に変更したいとしましょう。"out_$n""err_$n"$n = int($i/1000)

既存のコマンドを変更したくないprintので、既存のコードを変更せずにこのリダイレクト機能を追加するソリューションを探しています。

4

1 に答える 1

8

STDOUTを再度開くだけです

open(STDOUT, '>', $qfn)
于 2013-08-10T17:42:14.307 に答える