perl - Net::Telnet::Cisco 无法在 perl 中解析 Cisco 交换机中的提示

Question

我正在尝试使用 perl 自动切换，但我无法解析特定命令的提示。我使用 print 和 waitfor 方法。

提示基本上是一条确认消息，我需要按 Enter 键或按 y。这是提示

Clear "show interface" counters on this interface [confirm]

这是我得到的错误

Can't parse prompt: '/Clear "show interface" counters on this interface [confirm]/' at access_endis.pl line 27

请帮忙。我将提示编辑到上面，我收到一个错误，例如 Timed out 与提示匹配。

Answer 1

我尝试了以下语句，它对我有用，尽管它与提示不匹配。

$session->waitfor_pause(1);

实际上会覆盖cmd提示匹配，而是等待 1 秒。