Perl - How to use a process Handle created in a Module in another Perl Script

Question

Ultimately, what I want to do is to start a process in a module and parse the output in real time in another script.

What I want to do :

Open a process Handler (IPC)
Use this attribute outside of the Module

How I'm trying to do it and fail :

Open the process handler
Save the handler in a module's attribute
Use the attribute outside the module.

Code example :

#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} ){
  ...
}

What does self->{PROCESS_HANDLER} mean (without the leading $)? — mob
– mob, Commented Jun 10, 2010 at 15:47

daxim · Accepted Answer · 2010-06-10 15:31:40Z

3

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;

answered Jun 10, 2010 at 15:31

daxim

39.3k4 gold badges71 silver badges135 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Zwik Over a year ago

What would getlines return exactly? I mean, would it return the output since last time I called the method?

Zwik Over a year ago

Thank you for you answer but since I am not using Moose, this wasn't exactly what I was searching for.

daxim Over a year ago

I think you're conflating Moose with the IO family of modules. getlines is from IO::Handle. This example works just fine without Moose, but unsugared OO code in Perl is lengthier and would cloud the important part.

mob · Accepted Answer · 2010-06-10 15:49:17Z

2

Your while statement is missing a readline iterator, for one thing:

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

or

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

answered Jun 10, 2010 at 15:49

mob

119k18 gold badges159 silver badges291 bronze badges

2 Comments

Zwik Over a year ago

< {$module->{PROCESS_HANDLER}} > did not work, but readline($module->{PROCESS_HANDLER}) did. Thank you very much.

runrig Over a year ago

my $handle = $module->{PROCESS_HANDLER}; while (<$handle>) ... would work.

Collectives™ on Stack Overflow

Perl - How to use a process Handle created in a Module in another Perl Script

2 Answers 2

3 Comments

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

3 Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related