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()返回由bithfted 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这样的模块，该模块具有您可能需要的其他一些功能。