Perl Net:：Appliance:：会话等待？

我对Net:：Appliance:：Session有问题。我创建了一个会话，执行了我的命令。执行后，它会提示我一些问题是/否。我想回答它，但找不到方法。下面你可以看到我的测试：

$session->cmd($command);
$session->waitfor(Match=>'/.*yes*/');
$session->print("no");
$session->waitfor(Match=>'');
$session->print("y");

我不知道问题出在哪里。根据CPAN文件Net：：Telnet有方法等待。但是会话文档告诉我们可以使用waitfor。还有一件事是，cmd方法有一个成员匹配，其中包括waitfor的所有特性。因此，我更改了我的代码，如下所示：

$session->cmd($command, Match=>'/.*yes*/');
$session->print("no");

执行此操作会报告以下错误：

位于的哈希赋值中的奇数个元素 /usr/lib/perl5/vendor_perl/5.8.8/Net/Appliance/Session.pm第245行

你知道我该怎么做吗？为什么我会收到这个错误消息

提前感谢..

来自

要处理更复杂的交互，例如提示确认的命令或可选参数，应使用宏。它们在短语手册中设置，并通过$s->macro$name方法调用发布。有关更多详细信息，请参阅和手册页

---

因此，您在短语手册中设置了一个宏脚本调用和响应，然后告诉会话使用该宏。

您能给我一些精确的代码示例吗？因为我看了所有的文件，但我不能把东西放在一起。提前谢谢。我没有代码给你看。你写了一本短语手册吗？你用宏方法调用这个短语了吗？