IO::Socket::SSL中sysread屏蔽ERROR_SYSCALL，如何获取实际errno？

核心问题 #

当网络断开时，sysread进入_generic_read后，因Net_SSLeay_ERROR_SYSCALL被当作空读返回，但此时套接字已失效，connected()仍返回true（因为getpeername未超时），导致程序无法感知错误。

解决方案 #

1. 主动检查SSL底层错误（替代不稳定的_get_ssl_object） #

在sysread返回0时，不要直接认为是正常EOF，而是主动检查SSL的错误状态。可以通过兼容多数版本的方式获取IO::Socket::SSL内部的SSL实例，再调用Net::SSLeay::get_error：

my $bytes_read = sysread($s, $buf, 4096);
if (!defined $bytes_read) {
    # 处理普通系统错误
    die "Read error: $!";
} elsif ($bytes_read == 0) {
    # 兼容方式获取SSL对象
    my $ssl = $s->{_ssl_object} || $s->{_ssl};
    if ($ssl) {
        my $ssl_err = Net::SSLeay::get_error($ssl, -1);
        if ($ssl_err == Net::SSLeay::ERROR_SYSCALL()) {
            # 获取系统错误号
            my $sys_err = $!;
            die "SSL连接断开，系统错误: $sys_err ($!)";
        }
    }
    # 此处处理真正的EOF场景
}

2. 启用TCP Keepalive让内核主动检测连接 #

通过设置TCP Keepalive选项，让操作系统定期检测连接状态，一旦网络断开，内核会标记套接字失效，后续的sysread会直接返回错误，而非被SSL层屏蔽：

use Socket qw(SOL_SOCKET SO_KEEPALIVE IPPROTO_TCP TCP_KEEPIDLE TCP_KEEPINTVL TCP_KEEPCNT);

# 启用Keepalive
setsockopt($s, SOL_SOCKET, SO_KEEPALIVE, 1);
# 无数据传输10秒后开始发送心跳包
setsockopt($s, IPPROTO_TCP, TCP_KEEPIDLE, 10);
# 心跳包发送间隔5秒
setsockopt($s, IPPROTO_TCP, TCP_KEEPINTVL, 5);
# 连续3次心跳失败则判定连接失效
setsockopt($s, IPPROTO_TCP, TCP_KEEPCNT, 3);

这种方式无需修改核心业务逻辑，依赖内核层的连接检测，可靠性更高。

3. 避免依赖connected()检测状态 #

connected()仅通过getpeername判断，无法及时感知网络断开。建议结合sysread的返回值+SSL错误检查，或者Keepalive机制来判断连接有效性，不要单独依赖connected()。

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