perl - 动态更改 STDOUT 和 STDERR 重定向

Question

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

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

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

假设我有一个简单的循环$ifrom $minto$max并且我想动态更改重定向到文件"out_$n"和"err_$n"文件 where $n = int($i/1000).

我不想更改我现有的print命令，因此我正在寻找一种解决方案，它只添加此重定向功能而不更改现有代码。

Answer 1

只需重新打开 STDOUT

open(STDOUT, '>', $qfn)