Comment effectuer une lecture non bloquante à partir d'un tube en Perl?

Question

J'ai un programme qui appelle un autre programme et le traitement de la sortie de l'enfant, à savoir:

my $pid = open($handle, "$commandPath $options |"); 

Maintenant, j'ai essayé quelques différentes façons de lire de la poignée sans bloquer avec peu ou pas de succès.

Je trouve des questions connexes:

• perl-win32-how-to-do-a-non-blocking-read-of-a-filehandle-from-another-process
• why-does-my-perl-sysread-block-when-reading-from-a-socket

Mais ils souffrent de problèmes:

• ioctl se bloque régulièrement perl
• sysread blocs sur 0 octets (une occurrence fréquente)

Je ne sais pas comment résoudre ce problème.

Answer 1

Les tuyaux ne sont pas aussi fonctionnels sur Windows que sur les systèmes Unix-y. Vous ne pouvez pas utiliser le select à 4 arguments et la capacité par défaut est minuscule.

Il est préférable d'essayer une solution de contournement basée sur un socket ou un fichier.

$pid = fork(); 
if (defined($pid) && $pid == 0) { 
    exit system("$commandPath $options > $someTemporaryFile"); 
} 
open($handle, "<$someTemporaryFile"); 

Maintenant, vous avez deux ou trois autres boîtes de vers à traiter - en cours d'exécution waitpid périodiquement pour vérifier si le processus d'arrière-plan a cessé de créer la sortie, appelant seek $handle,0,1 pour effacer la condition EOF après avoir lu de $handle, nettoyage le fichier temporaire, mais cela fonctionne.

J'ai écrit le module Forks::Super pour faire face à des problèmes comme celui-ci (et beaucoup d'autres). Pour ce problème, vous l'utiliseriez comme

use Forks::Super; 
my $pid = fork { cmd => "$commandPath $options", child_fh => "out" }; 
my $job = Forks::Super::Job::get($pid); 
while (!$job->is_complete) { 
    @someInputToProcess = $job->read_stdout(); 
    ... process input ... 
    ... optional sleep here so you don't consume CPU waiting for input ... 
} 
waitpid $pid, 0; 
@theLastInputToProcess = $job->read_stdout();