Perl Net::FTP 的错误原因

Question

我正在使用 Net::FTP 将文件传输到大型机，并且正在测试故障条件。

我的代码基本上如下：

    my $ftp = Net::FTP->new ("mainframe.com", Timeout => 20);
    if (! $ftp) {
            logMessage ("Could not connect to host: $!");
            return;
    }

    if (! $ftp->login ("paxdiablo", "demigodemporeroftheuniverse")) {
            logMessage ("Could not log in to host: $!");
            $ftp->quit ();
            return;
    }

    if (! $ftp->put ("myfile.txt", "'CANT.WRITE.TO.THIS'")) {
            logMessage ("Could not put file: $!");
            $ftp->quit ();
            return;
    }

我知道我无法创建数据集CANT.WRITE.TO.THIS，因为我没有所需的权限，但是，当我尝试时，我看到的唯一消息是：

Could not put file:

$! 中没有指示问题所在。我查看了 Net::FTP doco 和它说的是：

put ( LOCAL_FILE [, REMOTE_FILE ] )

将文件放在远程服务器上。 LOCAL_FILE 可以是名称或文件句柄。如果 LOCAL_FILE 是文件句柄，则必须指定 REMOTE_FILE。如果未指定 REMOTE_FILE，则该文件将存储在当前目录中，其叶名与 LOCAL_FILE 相同。

如果未给出 REMOTE_FILE，则返回 REMOTE_FILE 或生成的远程文件名。

返回 REMOTE_FILE 或生成的远程文件名。代码>

我也找不到任何有关检索特定错误的信息（例如 $ftp->getLastError() 或类似的内容）。

我如何向用户表明传输失败的原因？

在早期的迭代中，我求助于放置文件，然后再次获取它并在本地检查内容。我真的宁愿不必再次向人们强加这样的错误代码。

Answer 1

来自 Net::FTP：

$ftp = Net::FTP->new("some.host.name", Debug ==> 0)
    或死亡“无法连接到 some.host.name：$@”

请注意$@。

$ftp->cwd("/pub")
    或死亡“无法更改工作目录”，$ftp->message;

注意$ftp->message