Net :: Appliance::Sessionに問題があります。セッションを作成し、コマンドを実行しました。実行後、いくつかの質問が表示されます(はい/いいえ)。私はそれに答えたいのですが、それを行う方法を見つけられませんでした。以下に私の試練を見ることができます:
$session->cmd($command);
$session->waitfor(Match=>'/.*yes*/');
$session->print("no");
$session->waitfor(Match=>'');
$session->print("y");
どこに問題があるのかわかりません。CPANドキュメントへの準拠Net::Telnetにはwaitforメソッドがあります。しかし、セッションのドキュメントには、waitfor()を使用できることが記載されています。もう1つは、メソッド「cmd」には、waitfor()のすべての機能を含むメンバーMatchがあるということです。だから私は以下のように私のコードを変更しました:
$session->cmd($command, Match=>'/.*yes*/');
$session->print("no");
このレポートを実行すると、以下のエラーが発生します。
/usr/lib/perl5/vendor_perl/5.8.8/Net/Appliance/Session.pm行245のハッシュ割り当ての要素数が奇数です。
どうすればそれができるのでしょうか?そして、なぜこのエラーメッセージが表示されるのですか?
前もって感謝します..