打印Perl FTP消息

Question

我正在尝试打印ftp消息。我能够在登录成功时获取该消息，但在用户登录失败时无法打开。我不确定代码中有什么问题。

use strict;
use Net::FTP;
use Sys::Hostname;
my $errMsg;
my $user = "test";
my $password = "test";
my $ftphostname = "test";

my $ftp = Net::FTP->new($ftphostname, Timeout => 600) or die "Can't open $ftphostname\n";
$ftp->login($user, $password) or die "Can't log $user: ", $ftp->message;
Printf $ftp->message;
$ftp->quit;
exit 0;

Answer 1

添加一个真实FTP站点的示例，我会看到以下消息：

OK. Current restricted directory is /

破坏密码时，我得到了：

Can't log dlpuser@dlptest.com: Login authentication failed

您还有其他内容吗？

#!/usr/bin/perl
use strict;
use Net::FTP;
use Sys::Hostname;
my $errMsg;
# See https://dlptest.com/ftp-test/
# There are other ftp test sites out there.
my $user = "dlpuser\@dlptest.com";
my $password = "e73jzTRTNqCN9PYAAjjn";
my $ftphostname = "ftp.dlptest.com";

my $ftp = Net::FTP->new($ftphostname, Timeout => 6) or die "Can't open $ftphostname\n";
$ftp->login($user, $password) or die "Can't log $user: ", $ftp->message;
printf $ftp->message;
$ftp->quit;
exit 0;