perl - 如何在 Net::Telnet 中指定绑定 IP

Question

所以我坚持这个，下面我有一些代码将本地IP地址作为其绑定地址，然后远程登录到指定端口上的指定服务器并返回值，问题是我需要它绑定到不同的IP服务器上的循环上的地址，我不知道如何做那部分。

本地主机 => $ip

我在下面指定了，但是当我运行它时

给 Net::Telnet::new() 的错误命名参数“localhost”

如果有人能告诉我在这里做错了什么，请提前感谢。

#!/usr/bin/perl
my $iplist = '/vbin/iplist';
use Net::Telnet;
for(0..50)
{
 my $remoteserver = shift;
 my $interface='eth2:'.$_;
 my $ip = `ifconfig  $interface|grep inet| cut -d':' -f2|awk '{print \$1}'`;
 chomp($ip,$interface);
 my $return = testport2("$ip","25");
 print "$ip:\t$return\n";
 print "$ip:\t$return\n";

}
sub testport2
{
 my $ip =shift;
 my $port = shift;
 my $mailserver = shift;
 my $telnet = new Net::Telnet ( Timeout=>10, Port=>$port, Errmode => 'return', localhost => $ip );
 $telnet->open("$remoteserver");
 if ($telnet->errmsg)
 {
   return "errmsg: " . $telnet->errmsg . "\n";
 }else{
   return"success\n";
 }
}

Answer 1

从文档开始，localhost是一种方法，而不是参数：

my $telnet = Net::Telnet->new( Timeout=>10, Port=>$port, Errmode => 'return');
$telnet->localhost($ip);
$telnet->open($remoteserver);