reopen STDIN

[Pavel Smerk]

On Thu, Oct 03, 2002 at 06:46:43PM +0200, Jiri Polcar wrote:
>     Zdravim,
> 
> povi me nekdo, proc kdyz se pokusim o
> 
>     close STDOUT;
>     open  STDOUT, "> /dev/stdout";
>     print "pepa";
> 
> dostanu odpoved:
> 
>     print() on closed filehandle STDOUT at ... ?

No mne to funguje takto:

$ perl -e 'close STDOUT; open  STDOUT, ">x"; print "pepa\n";'
$ cat x
pepa
$ perl -e 'close STDOUT; open  STDOUT, ">/dev/stdout" or die; print "pepa\n";'
Died at -e line 1.

Nedivil bych se, kdyby se Vam taky nepodarilo otevrit ten /dev/stdout.
									P.