Perl從無限循環中讀取

Question

InfLoop是一個在無限循環中打印隨機數的應用程序。以下語句是阻塞的，即perl等待直到應用程序InfLoop退出。

$out=`./InfLoop`; 

我想知道有什麼方法可以在不等待InfLoop退出的情況下讀取perl中的打印數字。至少通過使用叉子，IPC或類似的東西。

Answer 1

您可以閱讀行的任意數量的關閉管道./InfLoop

open my $pipe, "-|", "./InfLoop" or die $!; 
# read first N lines 
for my $i (1..3) { 
    my $line = readline($pipe); 
    print $line; 
} 
close($pipe);