动态更改STDOUT和STDERR重定向

Question

在Perl中，我使用标准命令进行打印：

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

如何动态更改STDOUT和STDERR到不同文件的重定向？

假设我有$i从$min到$max的简单循环，我希望动态更改重定向到文件"out_$n"和"err_$n"文件其中$n = int($i/1000)。

我不想更改现有的print命令，因此我正在寻找能够在不更改现有代码的情况下添加此重定向功能的解决方案。

Answer 1

重新打开STDOUT

open(STDOUT, '>', $qfn)