in reply to Restoring std(outerrin) with Net::Server
Really, these are not Perl issues. They are thouroughly covered in Advanced Programming in the UNIX Environment by Richard Stevens. I really need to reread it from cover to cover.close STDIN; close STDOUT; close STDERR; # not really necessary open STDIN, "</dev/tty"; open STDOUT, ">/dev/tty"; open STDERR, ">/dev/tty"; # testing print "STDOUT\n"; print "STDERR\n"; $_ = <STDIN>; print $_;
I would be happy to learn that there is a more portable way to reopen this file handlles.
-- stefp
|
|---|