像 exec() 这样的东西在 Perl 中返回一个值？

Question

我的印象（也许是错误的）Perl 中的“exec”函数不返回值（我的印象是它只是运行命令）。情况是 Perl 脚本正在服务器上运行，我需要调用该脚本在 Linux 机器内运行命令，同时还要返回结果。这怎么能做到呢？

Answer 1

如果“返回结果”是指返回命令的 STDOUT，那么您需要的是反引号或 qx()。例如：

my $result = qx(echo foo);
# or
my $result2 = `echo foo`;

请注意，不会返回发送至 STDERR 的消息。

如果您指的是程序的退出状态，请使用系统：

my $status = system("echo foo");
# or
my $status2 = system("/bin/echo", "foo", "bar");

Answer 2

exec() 不仅不返回值，而且根本不返回。

perldoc -f exec

exec函数执行系统命令并且永不返回
如果您希望它返回，请使用 system 而不是 exec。

但我很确定你不想要 system() 的返回值，
您似乎想要命令的输出，所以：

perldoc -f 系统

这不是您想要用来捕获的内容
命令的输出，为此您应该仅使用反引号或
qx//，如 perlop/"STRING" 中所述。

Answer 3

运行程序并保存其结果的常用 Perl 方法是 反引号< /a>:

my $foo = `ls`;

Answer 4

来自文档：http://perldoc.perl.org/functions/system.html

我一般用这个：

if(system(@args) != 0)
{
if ($? == -1) {
        print "failed to execute: $!\n";
    }
    elsif ($? & 127) {
        printf "child died with signal %d, %s coredump\n",
            ($? & 127),  ($? & 128) ? 'with' : 'without';
    }
    else {
        printf "child exited with value %d\n", $? >> 8;
    }
}

Answer 5

捕获 STDOUT：

my $dir = `pwd`;
my $dir = qx/pwd/;

---

捕获返回状态：

my $rc = system('pwd');

---

Perldocs 捕获 STDERR 和 STDOUT：

my $output = `cmd 2>&1`;

< em>请参阅链接以了解捕获一个输出流的其他方法，但不能捕获另一个输出流

Answer 6

在 perl 中使用 back-tic

my $var = `shell command`;

允许您执行 shell 命令，并且它返回任何输出。