Re: Challenge: Capturing stdout from a function call.

It doesn't look like you can without hacking Perl. Try

    close STDOUT; # comment out to see the difference, try opening STD
+OUT to something else
    use Perl;
    my $p = Perl->new( ARGV => [ '-le', 'print(1)for(1..22)'] );
    $p->run;
[download]

Looks like you'll have to settle for an intermediary file (open STDOUT, '>', ...).

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

Comment on Re: Challenge: Capturing stdout from a function call. Select or Download Code

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.