Re^2: Solving Deep recursion with a tied Filehandle

If you don't want it to localize STDOUT, the following works:

{
  local *TEMP = *STDOUT;
  undef(*STDOUT);
  tie *STDOUT, 'FileHandle::A', *TEMP;
}

print "testing";
[download]

and so does

{
  my $temp = *STDOUT;
  undef(*STDOUT);
  tie *STDOUT, 'FileHandle::A', $temp;
}

print "testing";
[download]

Tested on Perl 5.6.1 and 5.8.0

Comment on Re^2: Solving Deep recursion with a tied Filehandle Select or Download Code

Replies are listed 'Best First'.
Re^3: Solving Deep recursion with a tied Filehandle by cog (Parson) on Oct 15, 2005 at 18:03 UTC
None of those work with my 5.8.7	[reply]
Re^4: Solving Deep recursion with a tied Filehandle by ikegami (Patriarch) on Oct 15, 2005 at 22:21 UTC
How about `{ local TEMP; open(TEMP, ">&STDOUT") or die("Unable to dup STDOUT: $!\n"); undef(STDOUT); tie STDOUT, 'FileHandle::A', TEMP; } print "testing";` [download]	[reply] [d/l]
Re^5: Solving Deep recursion with a tied Filehandle by cog (Parson) on Oct 16, 2005 at 14:17 UTC
Nope :-\ Same thing :-\	[reply]
Re^6: Solving Deep recursion with a tied Filehandle by ikegami (Patriarch) on Oct 16, 2005 at 16:56 UTC