Perl 系统函数即使在成功执行后也返回 -1

Question

我在使用 3rd 方 perl 脚本时遇到了一些奇怪的情况。演示：

my $rc = system("tar -C /app/src -xvf /app/package.tar.gz");

if ($rc != 0)
{
   print "Return code: $rc";  
}

直接在 shell 上运行tar -C /app/src -xvf /app/package.tar.gz 工作正常，echo $? 显示退出状态0。都好。

另外，当运行这个小的 perl sn-p 时，返回总是 -1。如果我尝试类似：

my $rc = system("ls");

if ($rc != 0)
{
   print "Return code: $rc";  
} 

...返回码也是-1。

我对 perl 了解不多，所以我想知道什么可能会触发这种行为。

文档没有特别提到与此有关的任何内容 (http://perldoc.perl.org/functions/system.html)。

---

解决方案：

获取$!以获取有关错误的更多详细信息：

my $rc = system("tar -C /app/src -xvf /app/package.tar.gz");

if ($rc != 0)
{
   print "Return code: $rc\n";
   print "Reason: $!";  
}

返回：

Return code: -1
Reason: No child processes

应用$SIG{'CHLD'} = 'DEFAULT'; 解决了这个问题：

$SIG{'CHLD'} = 'DEFAULT';

my $rc = system("tar -C /app/src -xvf /app/package.tar.gz");

if ($rc != 0)
{
   print "Return code: $rc\n";
   print "Reason: $!";  
}

一些细节来自： What's the difference between various $SIG{CHLD} values?

Answer 1

就在您链接到的文档中（强调我的）：

-1的返回值表示程序启动失败或wait(2)系统调用出错（原因检查$!）。