Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^2: Redirect STDOUT in CGI App

by rpike (Scribe)
on Jul 28, 2011 at 16:10 UTC ( #917290=note: print w/ replies, xml ) Need Help??


in reply to Re: Redirect STDOUT in CGI App
in thread Redirect STDOUT in CGI App

Would u happen to have a small example of saving, redirecting STDOUT to a file, and restoring STDOUT back? Thanks.


Comment on Re^2: Redirect STDOUT in CGI App
Re^3: Redirect STDOUT in CGI App
by kennethk (Monsignor) on Jul 28, 2011 at 17:02 UTC
    Literally copied from the link I provided above:

    #!/usr/bin/perl open(my $oldout, ">&STDOUT") or die "Can't dup STDOUT: $!"; open(OLDERR, ">&", \*STDERR) or die "Can't dup STDERR: $!"; open(STDOUT, '>', "foo.out") or die "Can't redirect STDOUT: $!"; open(STDERR, ">&STDOUT") or die "Can't dup STDOUT: $!"; select STDERR; $| = 1; # make unbuffered select STDOUT; $| = 1; # make unbuffered print STDOUT "stdout 1\n"; # this works for print STDERR "stderr 1\n"; # subprocesses too open(STDOUT, ">&", $oldout) or die "Can't dup \$oldout: $!"; open(STDERR, ">&OLDERR") or die "Can't dup OLDERR: $!"; print STDOUT "stdout 2\n"; print STDERR "stderr 2\n";

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://917290]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2014-12-28 12:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (181 votes), past polls