Perl: laisser open3 hériteront STDIN, STDOUT, STDERR

Question

Cette impression 1..10 deux fois:

seq 10 > /tmp/ten 
perl -e 'fork();seek(STDIN,0,0); print <STDIN>' </tmp/ten 

Je voudrais faire la même chose en utilisant IPC :: Open3, mais je ne peux pas que travailler:

perl -MIPC::Open3 -e 'fork();seek(STDIN,0,0); open3(0,1,2,"cat");' < /tmp/ten 
perl -MIPC::Open3 -e 'fork();seek(STDIN,0,0); open3(STDIN,STDOUT,STDERR,"cat");' < /tmp/ten 
perl -MIPC::Open3 -e 'fork();seek(STDIN,0,0); open3(*STDIN,*STDOUT,*STDERR,"cat");' < /tmp/ten 
perl -MIPC::Open3 -e 'fork();seek(STDIN,0,0); open3(\*STDIN,\*STDOUT,\*STDERR,"cat");' < /tmp/ten 

Answer 1

tout d'abord, la notation propre à hériter des poignées est:

open3("<&STDIN", ">&STDOUT", ">&STDERR", "cat") 

---

Mais l'impression 1..10 deux fois? Vous ne devriez pas compter sur cela! Cela n'arrivera que si le timing est juste. En fait, cela arrive très rarement pour moi, même pour votre programme original. Les problèmes proviennent du fait que les processus parent et enfant partagent le même pointeur de fichier.

Peut-être que pour éviter que les utilisateurs ne se fient à ce comportement extrêmement peu fiable, open3 ferme le premier handle lorsqu'il s'agit d'un dup créé. Il est possible de le tromper comme suit:

open(local *CHILD_STDIN, "<&", \*STDIN) or die $!; 
open3("<&CHILD_STDIN", ">&STDOUT", ">&STDERR", "cat") 

De cette façon, open3 fermera la CHILD_STDIN dup, mais pas StdIn lui-même. Avec ce changement, vous obtiendrez la liste imprimée deux fois quand vous êtes chanceux.