How to read STDOUT from a Perl function

A

Alfred von Campe

I would think this is simple to do, but I just can't figure it out this
morning. Assume I have a function in Perl which writes some output to
STDOUT. I want to call this function from a Perl script and capture its
output in a variable.

If this was an executable or even another Perl script, I could use the
open() function. But since this is a Perl function, I can't use open().
Or can I? There's got be be a way, but my brain is just not cooperating
this morning.

Alfred
 
J

Jeff Bars

Assuming the function returns a value (and it should):

my $var = function();

or maybe I misread...

-JB
 
G

Gerard Oberle

Would something like the following work?

open FOO_IN, "perl -e \'require \"file.pl\"; &subroutine_call();\'"|"
or die "blah blah blah";

while (<FOO_IN>) {...}
close FOO_IN;

- Jerry Oberle
perl -e 'printf "mailto%c%s%c%s%cchase%ccom%c", 58, "Gerard", 46,
"Oberle", 64, 46, 10;'
 
A

Alfred von Campe

Would something like the following work?
open FOO_IN, "perl -e \'require \"file.pl\"; &subroutine_call();\'"|"
or die "blah blah blah";

while (<FOO_IN>) {...}
close FOO_IN;

Probably (I haven't tested it), but this solution is even uglier than
what I had originally done :) . It looks like I did not miss something
obvious; this functiononality does not exit in Perl. Basically, what I
want to do is to temporarily assign STDOUT to a Perl variable, so that
everything written to stdout is put in that variable.

Alfred
 
Joined
Jan 5, 2009
Messages
1
Reaction score
0
Alfred von Campe said:
I would think this is simple to do, but I just can't figure it out this
morning. Assume I have a function in Perl which writes some output to
STDOUT. I want to call this function from a Perl script and capture its
output in a variable.

If this was an executable or even another Perl script, I could use the
open() function. But since this is a Perl function, I can't use open().
Or can I? There's got be be a way, but my brain is just not cooperating
this morning.

Alfred

Can't you just assign the STDOUT to variable?

Something like:
$variable = `echo cat123`;
print $variable;

Best,

Joni
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,790
Messages
2,569,637
Members
45,346
Latest member
EstebanCoa

Latest Threads

Top