Re: Redirect STDOUT in CGI App

[kennethk]

The easiest way is to do it is in the shell. However, if you are looking to wrap an existing CGI script to check/filter its output before forwarding it on entirely in Perl, I would clone STDOUT and then redirect the original into a scalar for whatever inspection was appropriate/necessary. Cloning and redirecting is discussed in good detail in open.

[rpike]

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

[kennethk]

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";