perl - 通过 perl 脚本调用 make 实用程序/文件

Question

有什么方法可以通过 perl 脚本调用 make 实用程序。我在 myscript 中使用了以下代码

$cmd=system("/...path../make");
print "$cmd";

但它不起作用

Answer 1

您可以调用任何您想要的命令。为了简单起见，它通常在反引号中完成:

my $output = `make`;
print( $output );

另一种常用的技术是像读取文件一样打开一个进程:

my $filehandle;
if ( ! open( $filehandle, "make |" ) ) {
    die( "Failed to start process: $!" );
}
while ( defined( my $line = <$filehandle> ) ) {
    print( $line );
}
close( $line );

这样做的好处是您可以看到从流程交付的输出。

您可能希望通过将 2>&1 添加到命令行来捕获 STDERR 输出以及 STDOUT 输出:

my $filehandle;
if ( ! open( $filehandle, "make 2>&1 |" ) ) {
    die( "Failed to start process: $!" );
}
while ( defined( my $line = <$filehandle> ) ) {
    print( $line );
}
close( $line );