perl telnet连接检查

Question

我使用下面的代码连接到主机和IP地址的telnet，但它给我一个错误说＆＃34;不能调用方法＆＃34;写＆＃34;在线上的未定义值＆＃34; 但是，当我尝试连接到主机和IP地址手动它的工作。

如何确定telnet连接是否正常？ 有什么帮助吗？

$ip = 14.12.345.32
$ip_port=12345
$port1 = new Net::Telnet->new( Host=>$ip,Port=>$ip_port, Timeout => 100, Errmode => 'return');
$port1->write("\n");

Answer 1

只使用一个“新”。我更喜欢

$ip = 14.12.345.32;
$ip_port=12345;
$port1 = Net::Telnet->new( Host=>$ip,Port=>$ip_port, Timeout => 100, Errmode => 'return');

当然，不要忘记use语句和use strict并使用警告（以及行尾的分号）。