Perl while while循环只在for循环中循环一次

Question

我是Perl的新手，并正在为此而苦苦挣扎。我如何使下面的代码迭代asterisk_Output for循环的每次运行？目前，它在for循环的第一次迭代中完成while循环，但不在后续循环中完成。

open(asterisk_Output, "/usr/sbin/asterisk -rx \"sip show registry\"|") or die $!; 
foreach (@monitor_trunks){ 
    while (my $line = <asterisk_Output>) { 
     #Perform some action... Such as comparing each line. 
    } 
} 

我有它的工作的唯一途径是通过把内部的顶线环，但是这是联合国需要做出的外部命令多次调用。

Answer 1

在第一次循环结束时，文件指针位于文件末尾。如果你需要另一轮，你必须把它带回来。

你可以尝试要么退文件：

seek(asterisk_Output,0,1); 

或者（如果你的逻辑允许的话）来改变foreach和while（这样你只能读一次）：

while (my $line = <asterisk_Output>){ 
    foreach (@monitor_trunks) { 
     #Perform some action... Such as comparing each line. 
    } 
} 

第三种方法是将整个文件读入一个数组并将其用作循环的输入：

@array = <asterisk_Output>; 

foreach (@monitor_trunks){ 
    for my $line (@array) { 
    #Perform some action... 
    } 
}