#! /usr/bin/perl -w
 
  use FileHandle;
 
  $fh=FileHandle->new(">blarg");
  die 'Not open' unless defined $fh;
  open(STDOUT, ">&".$fh->fileno) or die "Argh: $!";
  print "foo bar\nbaz\n";
  $fh->close();
[download]

Jeroen
"We are not alone"(FZ)

Hey, thanks, that looks better
- chb

open STDOUT ">whatever.dat";
print "Hello World";
close STDOUT;
[download]

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]

No, I didn't mean that, I need a FileHandle variable which can be passed to a sub, and the sub does the redirect...
But you are right, that didn't show up in my example code...
-chb

use FileHandle;

$fh=FileHandle->new(">blarg")or die "error on fh creation";
local *TOTO=$fh;
open(STDOUT, ">&TOTO") or die "Argh: $!";
print "foo bar\nbaz\n";
close(TOTO);
[download]

open( FOO, "> foo" ) or die( "End of foo is nigh : $!" );
select FOO;         # Hang on, isn't 'select' for networking?
call_legacy_code(); # Hehe, output goes to foo
exit 0;

sub legacy_code {
  # Heh...print to the screen
  print "I 0wn j000!\n";
}
[download]

1. printing explicitly to STDOUT will still go to STDOUT
2. This isn't what you asked
3. You can probably do this with 'FileHandle' objects but this monk is too lazy to check
4. the reputation of comments may go down as well as up, past performance is no guarantee of future success.

use POSIX qw(dup2);
use FileHandle ();

my $fh = FileHandle->new(">blarg");
dup2(STDOUT->fileno,$fh->fileno);

print $fh "Um... Yah\n";
[download]

(Maybe next time I will log in first)

local $fh = \*STDOUT;

print $fh "Um... Yah\n";
[download]

(Maybe next time I will log in first )

use POSIX qw(dup);
use FileHandle ();

my $fd = dup(STDOUT->fileno);
my $fh = FileHandle->new();
$fh->fdopen($fd,'w');

print "Um... Yah\n";
[download]

my $fh - FileHandle->new();
$fh->fdopen(dup(fileno(STDOUT)),'w');
[download]

use IO::Wrap;
my $stdout = wraphandle(\*STDOUT);
[download]