如何让Perl Net::Telnet适配telnet -a自动登录认证需求？

telnet -a的核心行为是触发Telnet协议的AUTHENTICATION选项（RFC 1416）：客户端先发送IAC WILL AUTHENTICATION指令，随后发送以NULL结尾的用户名（取自环境变量USER）。Net::Telnet默认不处理这个流程，需要手动添加相关指令来模拟该行为。

修改后的代码如下：

use Net::Telnet;

my $t = Net::Telnet->new(
    Timeout    => 3,
    Host       => $host,
    Port       => $port,
    Prompt     => $prompt,
    Output_log => $log,
);

# 发送Telnet认证协商指令：IAC WILL AUTHENTICATION
# IAC=255, WILL=251, AUTHENTICATION选项码=37
$t->put(pack('CCC', 255, 251, 37));

# 获取环境变量中的用户名，不存在则用默认值
my $username = $ENV{USER} || 'default_user';
# 发送以NULL结尾的用户名
$t->put($username . "\x00");

# 等待服务器返回提示符，确认认证完成
$t->waitfor($prompt);

# 执行目标命令
$t->cmd($cmd);

关键说明： #

• put()方法用于直接发送二进制字节，避免print()自动添加换行符干扰Telnet协议指令。
• pack('CCC', 255, 251, 37)构造了符合Telnet协议规范的认证协商指令。
• 用户名必须以NULL字符（\x00）结尾，这是RFC 1416规定的简单认证数据格式。
• 如果服务器对认证有特定响应（比如返回IAC DO AUTHENTICATION），可以根据实际情况添加额外的waitfor逻辑匹配响应内容。

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