Re: Lost STDOUT?


laziness, impatience, and hubris
	PerlMonks

Re: Lost STDOUT?

by welchavw (Pilgrim)

on Nov 04, 2004 at 21:04 UTC ( [id://405309]=note: print w/replies, xml )

Need Help??

in reply to Lost STDOUT?

I'll defer to this link. I can't assert its correctness, but the source is pristine.

http://groups.google.com/groups?q=reopen+STDOUT&hl=en&lr=&selm=m14skhbfak.fsf%40halfdome.holdit.com&rnum=6

Addition

As an aside, if you were not doing CGI and could count on your code being launched from a commandline shell, you *might* be able to get away with something like this.

#!/usr/bin/perl -w
use strict;
use AtExit;

$_ = atexit(sub {
  open STDOUT, ">/dev/tty" or die;
  print "bar\n";
});

close STDOUT;
exit 0;
[download]

But that's not a great approach. Caching the file descriptor is a better approach, but as prior poster noted, this probably isn't the problem anyway ... its just slow at work today and I thought I'd dummy some code up and post.

,welchavw