reopen STDIN

[Jiri Polcar]

On Thu, Oct 03, 2002 at 07:07:12PM +0200, Pavel Smerk wrote:
> 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.

Dopadnu stejne, ale proc? To, kvuli cemu to potrebuju je, ze chci pustit

    system "program", @argumenty;

tak, ze me zajima jen navratova hodnota od "program" a chtel bych
potlacit jeho vystup. Myslel jsem, ze to udelam takto:

    open STDOUT, "> /dev/null";
    system "program", @argumenty;
    open STDOUT, "> /dev/stdout";

ale to nejde. Jak to udelat jinak?

-- 
JP