Net :: Telnet，发送是或否

Question

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

Answer 1

如果您不希望出现提示，请使用print()和waitfor()代替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()。