Perl - 如何使用在另一個Perl腳本中的模塊中創建的句柄

Question

最終，我想要做的是在模塊中啓動進程並在另一個腳本中實時解析輸出。

我想要做什麼：

• 打開進程處理程序（IPC）
• 使用 模塊之外這個屬性

如何我試圖做到這一點，失敗：

• 打開進程處理程序
• 將處理程序保存在模塊的 屬性中
• 使用模塊外部的屬性。

代碼示例：

#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

你while聲明缺少readline迭代器，一兩件事：

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

或

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;