使用PERL脚本从ftp中删除早于给定时间的文件

#!/usr/bin/perl

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

# 连接到FTP服务器
my $ftp = Net::FTP->new('ftp.example.com') or die "无法连接到FTP服务器: $@";
$ftp->login('username', 'password') or die "无法登录到FTP服务器: ", $ftp->message;

# 切换到指定目录
$ftp->cwd('/path/to/directory') or die "无法切换到指定目录: ", $ftp->message;

# 获取目录中的文件列表
my @files = $ftp->ls;

# 获取当前时间
my $current_time = time();

# 遍历文件列表
foreach my $file (@files) {
    # 获取文件的修改时间
    my $file_time = $ftp->mdtm($file);

    # 如果文件的修改时间早于给定时间，则删除文件
    if ($file_time < $current_time) {
        $ftp->delete($file) or warn "无法删除文件 $file: ", $ftp->message;
    }
}

# 断开与FTP服务器的连接
$ftp->quit;