perl - 在需要其他脚本时将标准输出重定向到变量

Question

我正在尝试将 STDOUT 重定向到一个变量，这似乎工作正常。但是，当我需要其他脚本时，它的预期输出不会存储在该变量中。

my $var;

#save STDOUT for future redirect
open OLDOUT, '>&STDOUT';
close STDOUT;

# redirect STDOUT to $var 
open STDOUT, '>', \$var or die "Can't open STDOUT: $!";

# run the script that I'm supposed to catch its output
do("macro.pl");
close STDOUT;

# redirect STDOUT to its original FH
open STDOUT, '>&OLDOUT' or die "Can't restore stdout: $!";
close OLDOUT or die "Can't close OLDOUT: $!";

# print the expected result from macro.pl
print "$var";

最后一行不打印任何内容，这不是预期的结果（单独运行 macro.pl 会产生非空输出）。

也用 require 尝试过 - 结果相同。值得一提的是，macro.pl 不会以任何方式更改标准文件描述符。

谢谢！

Answer 1

您需要select文件句柄才能使其成为默认文件句柄（又名STDOUT）。像这样试试。

my $printBuffer; # Your output will go in here
open(my $buffer, '>', \$printBuffer);
my $stdout = select($buffer); # $stdout is the original STDOUT

do 'macro.pl';

select($stdout); # go back to the original
close($buffer);

print $printBuffer;