perl telnet连接检查

我使用下面的代码连接到具有主机和ip地址的telnet，但它给我一个错误，在第行的未定义值上说“不能调用方法”write“ 但是，当我尝试手动连接到主机和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");

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

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

---

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

错误的行号是什么？连接telnet后，我正在写一个“\n”。作为“$port1->write（“\n”）；…这是线路失败。您应该显示完整的代码和错误消息。这将有助于我们帮助您。您好，感谢您的回复，并编辑和添加了代码。问题是，五次尝试中有一次连接失败，但并不总是会出错。我如何测试它？我想与其使用

write

不如使用

print

，用

$write=$port1->print（“\n”）；

更改最后一行，并从代码的最后一行删除一个

新的

。您好，谢谢您的回复。我试过了，有时好像不起作用，五次尝试中有一次连接失败。如何测试？