如何禁用Perl5对非tty句柄的多余ioctl(TCGETS) tty检查？

检查触发原因 #

Perl5的IO层默认会在首次读写新句柄前执行TCGETS ioctl调用，判断该句柄是否关联终端，用于自动决定默认缓冲策略：终端设备默认使用行缓冲，其他设备默认使用全缓冲。该逻辑是核心IO初始化的固定流程，并非bug，目前核心开发组没有调整该默认行为的计划。
你在问题中提供的strace日志里的ioctl(7, TCGETS, 0x7ffff5befcd0) = -1 ENOTTY (Inappropriate ioctl for device)就是该检查的直接表现，套接字不属于终端设备，因此调用直接返回错误，本身不会影响功能，但高并发场景下会产生不必要的系统调用开销。

现有可行禁用方案 #

无需修改Perl核心，通过显式声明句柄属性即可跳过自动探测逻辑，目前常用的解决方案有两种：

1. 显式指定IO层（推荐） #

在将原始fd绑定到Perl句柄，或者拿到accept返回的套接字句柄后，立即用binmode指定raw或者自定义IO层，避免自动探测：

# accept拿到套接字后立即执行
binmode $new_sock, ':raw';
# 从fd直接绑定句柄的场景，直接在open时指定层
open my $sock, '+<&=:raw', $fd or die $!;

2. 显式设置缓冲策略 #

调用IO::Handle的方法直接指定缓冲规则，也会跳过默认的终端探测步骤：

use IO::Handle;
# 自动刷新（无缓冲，适合短连接/交互场景）
$new_sock->autoflush(1);
# 全缓冲（适合大文件/长连接传输场景）
$new_sock->setvbuf(my $buffer, _IOFBF, 8192);

目前主流的Perl网络框架默认都在套接字初始化阶段执行了上述操作，因此不会触发多余的ioctl调用。

上下文控制能力的必要性 #

对于高并发短连接服务（如API网关、短连接代理），每秒accept次数可达数万量级，单次ioctl的微小开销累积后会导致5%~15%的CPU性能损耗，尤其是在受限容器环境下影响更为明显，因此新增上下文级别的开关确实有实际业务价值。但Perl5核心目前以稳定性维护为主要目标，功能迭代优先级较低，现有方案已经可以覆盖绝大多数场景的需求，暂时没有新增核心特性的时间表。

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