Czy zmiana wartości $ * OUT w Perlu 6 zmienia standardowe wyjście dla procesów potomnych?

Question

Bawiłem się z shell i jak to działa, gdy zmienię standardowe uchwyty plików w programie wywołującym. Proc mówi:

$ w $ out a $ err są trzy standardowe strumienie do-uruchomionego programu, a domyślnie „-”, co oznacza, że ​​dziedziczą strumień z procesu macierzystego.

O ile mogę powiedzieć, zewnętrzny program nie korzysta z tego samego pliku uchwyty:

#!/Applications/Rakudo/bin/perl6 

#`(
    make an external Perl 6 program the outputs to standard handles 
    ) 
my $p6-name = 'in-out.p6'.IO; 
#END try $p6-name.unlink; # why does this cause it to fail? 
my $p6-fh = open $p6-name, :w; 
die "Could not open $p6-name" unless ?$p6-fh; 
$p6-fh.put: Q:to/END/; 
    #!/Applications/Rakudo/bin/perl6 

    $*ERR.say(qq/\t$*PROGRAM: This goes to standard error/); 
    $*OUT.say(qq/\t$*PROGRAM: This goes to standard output/); 
    END 
$p6-fh.close; 
say $p6-name.e ?? 'File is there' !! 'File is not there'; 
die "$p6-name does not exist" unless $p6-name.e; 

{ 
#`(
    Start with some messages to show that we can output to 
    the standard filehandles. 
    ) 
$*OUT.put: "1. standard output before doing anything weird"; 
$*ERR.put: "2. standard error before doing anything weird"; 
shell("perl6 $p6-name").so; 
} 

{ 
#`(
    This block assigns a new filehandle to $*OUT and prints a 
    message to it. I expect that message to not show up in the 
    terminal. 

    It then calls run-them to fire off the external process. It 
    should inherit the same standard out and its standard out 
    messages should not show up. But, they do. 
    ) 
temp $*OUT = open '/dev/null', :w; 
$*OUT.put: "3. temp redefine standard output before this message"; 
shell("perl6 $p6-name").so; 
} 

$*OUT.put: "4. everything should be back to normal"; 

Wyjście pokazuje, że gdy otworzę /dev/null i przypisanie jej do uchwytu pliku $*OUT, wyjście z bieżącego programu nie pojawia się w terminalu (nie ma wyjścia zaczynającego się od 3.). Jednak, gdy zgłoszę shell, standardowe wyjście idzie do oryginalnego standardowe wyjście:

File is there 
1. standard output before doing anything weird 
2. standard error before doing anything weird 
    in-out.p6: This goes to standard error 
    in-out.p6: This goes to standard output 
    in-out.p6: This goes to standard error 
    in-out.p6: This goes to standard output 
4. everything should be back to normal 

Nie martwię się, jak tego dokonać. Mogę utworzyć obiekt Proc i przekazać do niego uchwyty plików.

Czy dzieje się coś jeszcze?

Answer 1

Domyślnie uchwyt IO :: $*OUT jest związany z uchwytem plików STDOUT niskiego poziomu podanym przez system operacyjny.

shell i run po prostu pozwól, aby proces odradzania wykorzystywał plik STDOUT niskiego poziomu, który został nadany perlowi 6, o ile nie określisz inaczej.

Perl 6 nie zmienia niczego w otoczeniu zewnętrznym, aż do chwili, gdy pojawi się nowy proces.

---

Najprostszym rozwiązaniem jest dać filehandle obiekt, który ma zostać użyty do wywołania shell lub run o nazwie argument.

# no testing for failure because the default is to throw an error anyway 

my $p6-name = 'in-out.p6'.IO; 
END $p6-name.unlink; 

$p6-name.spurt(Q'put "STDOUT: @*ARGS[0]";note "STDERR: @*ARGS[0]"'); 

run $*EXECUTABLE, $p6-name, 'run', :out(open '/dev/null', :w); 

{ 
    temp $*OUT = open '/dev/null', :w; 
    shell "'$*EXECUTABLE' '$p6-name' 'shell'", :err($*OUT); 
} 

To skutkuje

STDERR: run 
STDOUT: shell 

W szczególnym przypadku wyrzucać danych wyjściowych, :!out lub :!err powinien być stosowany zamiast.

run $*EXECUTABLE, $p6-name, 'no STDERR', :!err; 

STDOUT: no STDERR 

---

Jeśli chcesz tylko dane, które mają zostać przechwycone przez ciebie :out i :err nie tylko to;

my $fh = run($*EXECUTABLE, $p6-name, 'capture', :out).out; 
print 'captured: ',$fh.slurp-rest; 

captured: STDOUT capture