如何使用 Net::FTP::Recursive; 从 Perl 中使用 rget 打印文件名？

Question

我想打印文件名或完整的远程路径

use Net::FTP::Recursive;
$ftp = Net::FTP::Recursive->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'[email protected]');
$ftp->rget( '/dev','' );
$ftp->quit;

Answer 1

尝试列出文件名：

use strict;
use warnings;
use Net::FTP::Recursive;

my $ftp = Net::FTP::Recursive->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'[email protected]');
$ftp->cwd('/dev');
print join("\n", $ftp->ls());
$ftp->quit;