Perl Net :: Telnet等待问题

Question

我试图通过telnet上的perl脚本控制iBoot G2电源控制器。我已经拼凑了控制但是我遇到了让waitfor语句正常工作的问题。这是我通过putty发出telnet命令时的样子：

iBoot-G2 1.21.99
iBoot> set outlet off

Ok
iBoot>

这是我简单的perl代码：

print("\n open session\n");
$telnet->open('192.168.2.254');
print $telnet->cmd('prompt');
print("\n enter command\n");
print $telnet->cmd('set outlet off');

$telnet->waitfor('/iBoot>/');

print $telnet->cmd('set outlet on');
$telnet->close('192.168.2.254');
print("\n finished\n");

我在这里有两个问题，其中一个我将在未来解决（我怀疑这是一个硬件相关的问题）。第二个问题和这个主题的主题是waitfor语句。正如您所看到的，我的提示是＆＃34; iBoot＆gt;＆＃34;这是我在waitfor语句中搜索的内容，但模式匹配超时。我在这里错过了什么吗？我试过更换＆＃39; / iBoot＆gt; /＆＃39;用＆＃39; / Ok /＆＃39;我也有同样的结果。