Как напечатать имя файла с помощью rget из Perl, используя Net :: FTP :: Recursive ;?

Question

Я хотел бы напечатать имя файла или полный удаленный путь

use Net::FTP::Recursive;
$ftp = Net::FTP::Recursive->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'me@here.there');
$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",'me@here.there');
$ftp->cwd('/dev');
print join("\n", $ftp->ls());
$ftp->quit;