perl - Net::Telnet、yes または no を送信

Question

私は Net::Telnet を使用するプログラムを書いていますが、私が使用する$tel->cmdと、機器はコマンドを続行するために yes または no を待機します。Net::Telnet を使用してそれを行うにはどうすればよいですか?

Answer 1

プロンプトが表示されない場合は、 の代わりにprint()andを使用します。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()もう一度使用できます。