Perl外部命令执行错误

Question

我是 perl 新手，正在尝试使用 LFTP 程序创建 FTP 脚本。

我正在尝试通过 LFTP 执行 FTP 脚本文件。我的代码是：

my $CLIENT = "lftp";
my $connectionString =  "" . $CLIENT . " -d -f script.ftp";
my $result = `$connectionString` or die "\nERROR running $CLIENT: $!";
return $result;

好吧，它完美地执行了 script.ftp 文件中的所有命令，因为调试已打开以查看输出，然后就死了，没有任何东西写入 $result。

我收到的错误是 -

ERROR running lftp: at ftp.pl line 3.

它指的是我将输出传递给变量$result的行。

任何线索为什么它没有将输出传递给$result 而只是死掉？

如果我从 Linux shell 运行相同的程序，它会完美执行，没有错误。

Answer 1

最好使用 FTP 模块（例如 Net::FTP），而不是依赖 shell / 外部命令。

Answer 2

这并不是真正的错误，您只是将其定义为错误。系统调用的返回值被 perl 解释为 false，从而触发 die 子句。

Answer 3

该命令是否将任何内容写入标准输出（与标准错误相反）？反引号的返回值是程序的实际输出。如果输出为空，则 $result 的值为“false”，您的 die 语句将被调用。

一些替代方案：

使用system，因为system的返回值告诉你命令是否成功：

system($connectionString) and die "ERROR: running $CLIENT: $?\n"

system("$connectionString > $logFile 2>&1") 
    and die "ERROR in $CLIENT: $?. Look in $logFile\n";

（我们使用and 而不是or，因为与大多数其他函数不同，system 的返回值为零表示成功）。

另一种选择是加入外部命令的标准输出和标准错误，这样命令在唯一的输出是“错误”输出时成功，例如调试消息：

$result = `$connectionString 2>&1` or die "ERROR: running CLIENT: $!\n";

---

（根据大众需求编辑）另一种选择是以$?（上一次外部命令运行的退出状态）为条件：

$result = `$connectionString`;
$? == 0  or  die "ERROR: running CLIENT: $! $?\n";

Answer 4

执行系统命令和检查错误的正确方法如下：

我的 $result = `$connectionString`; 我的 $rc = $? >> 8; 如果（$rc）{ die("执行命令出错：$!\n"); }别的{ 打印“成功！\n”； } 返回$结果；