Perl使用Net::FTPSSL传输文件时报SSL握手失败如何解决

你遇到的两类报错本质是FTPS双通道会话过期、服务端主动断开连接未通知客户端，以及数据通道未正确复用命令通道SSL上下文导致。

1. 禁用长连接，单次任务结束后主动销毁会话 #

不要复用全局FTP/FTPS连接实例，每次定时拉取任务启动时新建连接，任务完成后显式调用quit方法关闭连接并销毁对象，避免使用服务端已超时断开的过期套接字发起请求。
参考代码：

# 每次任务启动时新建连接
my $ftp = Net::FTPSSL->new($host, 
    Port => 990,
    Encryption => 'E',
    SSL_verify_mode => 0, # 生产环境按需替换为证书校验配置
    SSL_version => 'TLSv1_2', # 禁止使用SSLv3，该协议已被废弃且多数服务端已禁用
);
$ftp->login($user, $passwd);
# 执行文件拉取逻辑
foreach my $file ($ftp->ls("*.mp4")) {
    $ftp->get($file, "/local/storage/path/$file");
}
# 显式关闭连接释放资源
$ftp->quit;
undef $ftp;

2. 开启SSL会话复用配置 #

绝大多数FTPS服务端要求数据通道复用命令通道的SSL会话上下文，未开启该配置会触发数据通道SSL升级失败报错。在初始化时添加如下配置：

use IO::Socket::SSL;
my $ftp = Net::FTPSSL->new($host,
    # 其他原有配置
    SSL_session_cache => IO::Socket::SSL::Session_Cache->new(100),
    SSL_reuse_ctx => 1,
);

如果使用Net::FTP的FTPS模式，调用starttls时传入复用配置：

my $ftp = Net::FTP->new($host, Port => 21);
$ftp->starttls(
    SSL_session_cache => IO::Socket::SSL::Session_Cache->new(100),
    SSL_reuse_ctx => 1,
);
$ftp->login($user, $passwd);

3. 添加超时和异常重试机制 #

• 所有FTP操作设置不超过30s的超时阈值，超时后直接销毁当前连接，单任务重试次数不超过3次
• 捕获命令通道EOF异常，触发时直接重建连接，不尝试复用现有实例
• 拉取大体积mp4文件时，单独设置数据通道超时阈值不低于文件预估传输时长，避免传输过程中连接被主动断开

4. 对齐服务端配置 #

确认FTPS服务端的以下规则，客户端配置对齐要求：

• 单IP并发连接数、连接频率限制，调整定时任务执行频率避免触发限流
• TLS会话超时时间，设置客户端重建连接的周期小于服务端会话超时时间
• 服务端支持的TLS版本，优先使用TLS 1.2或1.3版本，不要降级到SSLv3

内容的提问来源于stack exchange，提问作者cplaiuu