Perl ssh连接并执行telnet连接

我有多个cisco路由器配置了5个指定主机允许的telnet访问。现在我想在一台主机上执行perl脚本,该主机通过ssh连接到其他主机,并检查是否可以通过telnet连接到路由器。 我尝试了系统“ssh host”命令但遗憾的是没有任何乐趣。有人可以帮帮我吗? 提前谢谢了。 我尝试了以下但没有成功。一些想法?
use Net::OpenSSH;

$ssh = Net::OpenSSH->new("linuxserver", user => "username", password => "password", master_stderr_discard => 1);
$command = "telnet routername";
@out = $ssh->capture({stdin_data => "routerpasswordn"}, $command);

print "@outn";


    
已邀请:
您可以使用Net :: SSH2使用tcpip方法连接并转发到路由器的连接。或者,您可以使用Net :: OpenSSH(仅需要OpenSSH二进制文件)来执行相同操作,请参阅有关隧道的信息。     

要回复问题请先登录注册