Perl - Comment utiliser un processus Handle créé dans un module dans un autre script Perl

Question

Finalement, ce que je veux faire est de démarrer un processus dans un module et d'analyser la sortie en temps réel dans un autre script.

Ce que je veux faire:

• Ouvrir un processus gestionnaire (IPC)
• Utilisez cet attribut en dehors du Module

Comment je suis en train de le faire et l'échec :

• Ouvrir le gestionnaire de processus
• Enregistrer le gestionnaire dans l'attribut d'un module
• Utilisez l'attribut en dehors du module.

Exemple de code:

#module.pm 

$self->{PROCESS_HANDLER}; 

sub doSomething{ 
    ... 
    open($self->{PROCESS_HANDLER}, "run a .jar 2>&1 |"); 
    ... 
} 


#perlScript.pl 

my $module = new module(...); 
... 
$module->doSomething(); 
... 
while($module->{PROCESS_HANDLER}){ 
    ... 
} 

Answer 1

Votre déclaration while manque un readline iterator, pour une chose:

while(< {$module->{PROCESS_HANDLER}} >) { ... 

ou

while(readline($module->{PROCESS_HANDLER})) { ... 

Answer 2

package Thing; 
use Moose; 
use IO::Pipe; 

has 'foo' => (
    is  => 'ro', 
    isa  => 'IO::Handle', 
    default => sub { 
     my $handle = IO::Pipe->new; 
     $handle->reader('run a .jar 2>&1'); # note, *no* pipe character here 
     return $handle; 
    }); 

1; 

---

package main; 
use Thing; 
my $t = Thing->new; 
say $t->foo->getlines;