perl - Net::Telnet，发送是或否

Question

我正在编写一个使用 Net::Telnet 的程序，但是当我使用 时$tel->cmd，设备等待是或否以继续 cmd，我如何使用 Net::Telnet 来做到这一点？

Answer 1

如果您不希望出现提示，请使用print()andwaitfor()而不是cmd().

例如对话：

testmachine# launch-fireworks
Are you sure? (yes/no/MAYBE) yes
Fireworks launched
testmachine#

可以像这样自动化：

$telnet->print('launch-fireworks');
$telnet->waitfor('Are you sure? (yes/no/MAYBE)');
$telnet->cmd('yes');

在yes我们期望提示出现之后，我们可以cmd()再次使用。