I am calling a function that writes to STDOUT using print. How can I capture this in a variable?
Note that all this happens within the same process
I am calling a function that writes to STDOUT using print. How can I capture this in a variable?
Note that all this happens within the same process
You can make use of open for this as:
close STDOUT;
open STDOUT, '>', \$variable or die "Can't open STDOUT: $!";
See http://www.perlmonks.org/?node_id=11007
Oops, above is for redirecting stdout to a file, not to a variable.
It may be cleaner code to have your print statements use a file handle other than STDOUT since redirecting STDOUT is not what a person expects.
Eg
open MEM, '>', \$variable or die "Can't open MEM: $!";
print MEM $stuff; # note, no comma between filehandle and the print list
If the code in question is not using STDOUT explicitly (i.e., it just does print "..."
), you can use select
to change the filehandle that print
uses:
my $output;
open(my $outputFH, '>', \$output) or die; # This shouldn't fail
my $oldFH = select $outputFH;
call_code_that_prints();
select $oldFH;
close $outputFH;
print $output; # Here's what we collected
Using select
makes it easier to restore STDOUT afterward. Closing and reopening STDOUT is harder to undo. Note that select
does not affect STDOUT itself, so it doesn't affect external processes, but you said you didn't have any. It also doesn't affect code that does something like print STDOUT "..."
.
If the select
method isn't sufficient for your needs, I'd recommend you try Capture::Tiny. It can capture output from external programs and code that writes to STDOUT explicitly. But it can't (currently) capture only STDOUT; it always captures both STDOUT and STDERR (either separately or merged into one string).
The new, cool way to handle this is with Capture::Tiny. You can use it surgically to affect just the part of the program where you need it without disturbing anything else.