为什么我的 Perl 系统调用失败并带有点？

Question

我是 Perl 的初学者，但在使用“系统”调用时遇到了一些麻烦。这是我尝试执行 2 个 shell 命令的一小段代码：

# First command is :
# dot -Tpng $dottmpfile > $pngfile
# Second command is :
# rm $dottmpfile

if (!($pngfile eq "")) {
  my @args = ("dot", "-Tpng", $dottmpfile, " > ", $pngfile);
  system (join (' ' , @args ))
    or die "system @args failed : $!";

  unlink $dottmpfile;
}

编辑：这是我现在的代码，但我仍然收到错误：

system dot -Tpng toto.dot  >  toto.png failed : Inappropriate ioctl for device at /home/claferri/bin/fractal.pl line 79.

我使用system 生成了这段代码。

Answer 1

查看perldoc -f system，注意：

如果 LIST 中有多个参数，或者如果 LIST 是一个具有多个值的数组，则以列表的其余部分给出的参数启动列表的第一个元素给出的程序。如果只有一个标量参数，则检查该参数是否有 shell 元字符，如果有，则将整个参数传递给系统的命令 shell 进行解析

您正在调用system LIST，因此> 最终被传递给dot，而不是被shell 解释。

我建议您继续使用system LIST，因为它比通过外壳传递所有内容要安全一些。根据文档，您可以通过使用-o 选项到dot 来指定输出文件，所以这样做。

如果你真的想点你的 is 并交叉你的 ts（双关语不是故意的），那么你可以使用：

if ( defined $pngfile and $pngfile ne '') {
    my @args = (dot => '-Tpng', $dottmpfile, "-o$pngfile");
    if ( system @args ) {
        warn "'system @args' failed\n";
        my $reason = $?;
        if ( $reason == -1 ) {
            die "Failed to execute: $!";
        }
        elsif ( $reason & 0x7f ) {
            die sprintf(
                'child died with signal %d, %s coredump',
                ($reason & 0x7f),  
                ($reason & 0x80) ? 'with' : 'without'
            );
        }
        else {
            die sprintf('child exited with value %d', $reason >> 8);
        }
    }
    warn "'system @args' executed successfully\n";
    unlink $dottmpfile;
}

Answer 2

您正在使用> 告诉shell 将输出重定向到一个文件，但是通过调用system LIST，您正在绕过shell。因此，您可以使用：

system ( join (' ' , @args ) ); 

或

system "@args";

Answer 3

system 在成功时返回 0，在“失败”时返回非零。这与大多数这些成语的外观相反，并且有点违反直觉，但是对于 system 调用，您应该使用如下表达式：

system($command) and warn "system $command: failed $?\n";   # and not or

或

if (system($command) != 0) { ... handle error ... }

Answer 4

PATH 中的“点”是否可执行？它有可执行权限吗？您在使用此代码时遇到了哪些具体错误？

根据perldoc -f system，这似乎是正确的。