Печать 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;