如何从ftp位置下载最后15分钟的文件

Question

我试图编写一个脚本，使用Linux操作系统上的perl脚本从FTP服务器下载最新文件。

任何人都可以建议我选择解决此问题。

我有一个书面示例代码，但只有在我们知道文件名的情况下它才有效，但根据我们的要求，我们必须下载最后15分钟的文件。

#!/usr/bin/perl -w

use Net::FTP;
$ftp = Net::FTP->new("xx.x3.x0.ab");
$ftp->login('xstftp', 'zxtxftp') or die "Cannot login ", $ftp->message;
print "login succesful\n";
$ftp->cd("/FM")  or die "Cannot change dir ", $ftp->message;
print "changed dir\n";
$ftp->binary;
#$ftp-> nlist   or die "Cannot download ", $ftp->message;
#$ftp-> get('report_2nd1620_20161220_162000_128.csv') or die "Cannot download ", $ftp->message;

print "chk download dir\n";
$ftp->quit;