Perl - 如何在另一个 Perl 脚本中使用在模块中创建的进程句柄

Question

最终，我想做的是在模块中启动一个进程，并在另一个脚本中实时解析输出。

我想要做什么：

• 打开一个进程处理程序（IPC）
• 在外部使用此属性 模块

我尝试执行此操作并失败：

• 打开进程处理程序
• 将处理程序保存在模块的 attribute
• 使用模块外部的属性。

代码示例：

#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

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;

Answer 2

一方面，您的 while 语句缺少 readline 迭代器：

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

或者

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