perl - Perl ssh 连接并执行 telnet 连接

Question

我有多个 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 => "routerpassword\n"}, $command);

print "@out\n";

Answer 1

您可以使用Net::SSH2连接并使用tcpip方法将连接转发到路由器。或者，您可以使用Net::OpenSSH（只需要OpenSSH二进制文件）来执行相同的操作，请参阅有关Tunnels的信息。