Perl 和外部程序

Question

我有一个 Perl 程序和一个 C 程序。我想运行Perl程序并捕获C程序的返回值。为了说清楚：

C 程序（a.out）

int main()
{
    printf("100");
    return 100;
}

Perl 程序：

print `ls`; #OK
print `a.out`; #No error but it does not print any output.

有什么想法吗？ 谢谢。

Answer 1

我不了解 perl，但这适用于我的系统，所以不能保证：

#!/usr/bin/perl

print "Running a.out now\n";
$exitCode = system("./a.out");
print "a.out returned:\n";
print $exitCode>>8; print "\n";

出于某种原因，system() 返回返回值按 8 位移动（因此 0 将变为 256，1 将变为 512。 .. 7 将是 1792 或类似的东西）但我不想查为什么。

Answer 2

您的 C 程序没有打印回车符，因此您可能会遇到行缓冲问题。

试试这个：

printf("100\n");

Answer 3

system() 将返回一个代码，指示您的 C 程序返回了什么或者它是否被信号终止；假设后者不是这种情况，你可以做

$exitcode = system('a.out');
print "return code was ", $exitcode >> 8, "\n";

如果你也希望捕获输出，你可以使用反引号，代码将在 $?多变的。

$output = `a.out`;
$exitcode = $?;
print "return code was ", $exitcode >> 8, "\n";
print "output was:\n", $output;

您可能想要使用像 IPC::Cmd 这样的模块，它具有您可能需要的其他几个功能。