运行外部命令并并行处理其日志文件

Question

我需要从 Perl 代码中运行外部工具。该命令运行相当长的时间，几乎不向 STDOUT 打印任何内容，但会创建一个日志文件。 我想运行它并并行读取和处理其日志文件。我怎样才能用 Perl 做到这一点？

提前致谢。

Answer 1

如果您使用类似 File::Tail 的内容来读取日志文件，那么您可以这样做一个简单的 fork 和 exec 来运行外部命令。类似下面的内容应该可以工作：

use strict;
use warnings;

use File::Tail;

my $pid = fork;

if ( $pid ) { 
    # in the parent process; open the log file and wait for input
    my $tail = File::Tail->new( '/path/to/logfile.log' );
    while( my $line = $tail->read ) { 
        # do stuff with $line here
        last if $line eq 'done running';  # we need something to escape the loop 
                                          # or it will wait forever for input.
    }
} else { 
    # in the child process, run the external command
    exec 'some_command', 'arg1', 'arg2';
}

# wait for child process to exit and clean it up
my $exit_pid = wait;

如果运行子进程出现问题，退出返回代码将位于特殊变量 $? 中；有关详细信息，请参阅 wait 的文档。

另外，如果日志输出没有提供何时停止跟踪文件的线索，您可以在 $SIG{CHLD} 中安装一个处理程序，它将捕获子进程的终止信号并允许您中断脱离循环。