如何在Perl的Net::OpenSSH中结合ssh-agent实现跳板机SSH连接

问题核心 #

你在Bash环境下通过ssh -A user@Jumper user@DestinationServer ls -l能成功执行远程命令，但使用Net::OpenSSH的forward_agent => 1参数时，却出现和未加-A时相同的认证失败错误，debug发现执行命令中没有-A标志，本质是agent转发未正确生效。

修复步骤 #

1. 修正Perl脚本语法错误 #

原脚本中use Net::OpenSSH语句缺少分号，这会导致语法错误，直接影响后续参数解析：

#!/usr/bin/perl
use Net::OpenSSH; # 必须添加分号

my $JumperIP = '你的跳板机IP';
my $user = '你的用户名';

my $ssh = Net::OpenSSH->new($JumperIP, user => $user, forward_agent => 1);
$ssh->capture('user@DestinationServer ls -l');

2. 验证Perl进程是否获取到SSH_AUTH_SOCK #

在脚本开头添加环境变量打印，确认agent套接字路径是否正确传递到Perl进程：

print "SSH_AUTH_SOCK: $ENV{SSH_AUTH_SOCK}\n";

如果输出为空，说明启动Perl脚本时环境变量未正确导出，建议重新执行eval $(ssh-agent)自动设置环境变量后，再启动脚本。

3. 显式指定SSH的-A参数 #

如果forward_agent => 1参数未生效，可直接在ssh_opts中添加-A强制开启agent转发：

my $ssh = Net::OpenSSH->new(
    $JumperIP,
    user => $user,
    ssh_opts => ['-A'],
    forward_agent => 1 # 双重保险，也可仅保留ssh_opts配置
);

4. 检查跳板机SSH配置（可选） #

虽然Bash中能成功执行，但仍可确认跳板机的/etc/ssh/sshd_config是否开启agent转发：

# 在跳板机上执行
grep AllowAgentForwarding /etc/ssh/sshd_config

确保值为yes，若修改过配置，需重启sshd服务：systemctl restart sshd

验证方法 #

开启Net::OpenSSH的debug模式，查看实际执行的SSH命令：

my $ssh = Net::OpenSSH->new(
    $JumperIP,
    user => $user,
    ssh_opts => ['-A'],
    forward_agent => 1,
    debug => 1
);

此时应能看到命令中包含-A参数，agent转发生效后即可成功连接目标服务器。

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