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会产生非空输出）。

也尝试了同样的结果。值得一提的是，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;

在需要其他脚本时将stdout重定向到变量

1 个答案: