perl Net :: FTP没有匹配

Question

my $u = URI->new('ftp://myuri');
my $ftp = Net::FTP->new($u->host(), Debug => 1) or die "Connection failed!";

$ftp->login($u->user(), $u->password()) or die "Login failed!";
$ftp->cwd($u->path()) or die "CWD failed!";
$ftp->binary();

my @ls = $ftp->ls('S*.txt') or die "LIST failed!" . $ftp->code();

foreach $line (@ls) {
    print "### $line\n";
}

此代码将因为没有任何匹配而死亡，可以确定ls（）是否成功但没有匹配或是否有其他错误？

Answer 1

Net :: FTP派生自Net :: Cmd，所以你也应该查看Net :: Cmd的文档。在那里你可以看到，$ftp->ok可以用来检查最后一个命令是否正常，即使它没有返回任何数据。