perl - 如何在 Perl 中通过 FTP(使用 TLS 加密)删除文件而不是目录？

Question

我目前正在使用 Net::FTPSSL::Robust 的 TLS 加密遍历一堆服务器的目录。我想下载文件，然后在下载时删除它们。我不想删除文件夹名称。

问题是，Robust 只有一个 get() 并且它不会删除它获取的文件。我知道必须有办法做到这一点。正如您在这里看到的，删除将不起作用，因为它不是 Net::FTPSSL::Robust 的一部分，尽管它是 Net::FTPSSL 的一部分:

my $ftp = Net::FTPSSL::Robust->new
( Host    => $server->{'ip_address'}->{content}
, Port    => $port
, SECURITY_TLS => $encryption
, user  => $server->{'username'}->{content}
, password  => $server->{'password'}->{content}
, login_attempts => 3
);

$local_dir = $server->{'local_directory'}->{content} if($server->{'local_directory'}->{content});

# when needed, many attempts will be made to retrieve all
$ftp->get("/", "".$local_dir);
$ftp->delete("/") 

谁能对此有所启发或有更好的解决方案？我是 Perl 的新手，所以在此先感谢。

Answer 1

为什么不直接使用 Net::FTPSSL 或 Net::SSLGlue::FTP 而不是 Net::FTPSSL::Robust ？您是否需要 Net::FTPSSL::Robust 中其他模块不提供的任何特殊功能？