如果数组在perl中动态更新，如何打印数组元素？

Question

#!/usr/bin/perl
my @logsfiles = `tail -f /var/logs/*.log`;

foreach my $log (@logfiles){
     print $log;
}

我在我的脚本中使用上面提到的片段，我想知道一种方法，我可以随时打印数组条目！正如我的tail -f命令动态地给出输出。

非常感谢帮助。 最好的祝福， Shantesh

Answer 1

这里有一个如何在多个文件上使用File :: Tail的示例：https://metacpan.org/source/MGRABNAR/File-Tail-1.3/select_demo

Answer 2

这应该可以解决问题：

#!/usr/bin/perl

open(my $tail_pipe,'tail -f /var/logs/*.log |');

while(my $line = <$tail_pipe>) {
    print $line;
}

close($tail_pipe);