0

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 は、標準のファイル記述子をまったく変更しないことに注意してください。

ありがとう!

4

1 に答える 1

3

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;
于 2013-01-09T12:03:58.703 に答える