0

Perl telnetは、前のコマンドの終了を待ちません。ファイルinfile.logにコマンドの続きが表示されますmy @ config = $ telnet-> cmd ("sh run");が、スクリプトはすでにコマンドの実行を開始していますprint ("Format configuration", $ _, "\ n");。その結果、空の配列@configを取得します。

foreach (@linksys_sps){
 print ("Connecting to ",$_,"\n");
 my $telnet = new Net::Telnet ( Timeout=>10,Errmode=>'return',Input_Log => "infile.log");
 $telnet->open($_);
   if ($telnet->errmsg){
   print "Can't connect to " . $_ . " Error: " . $telnet->errmsg . "\n";
   } else {
 $telnet->max_buffer_length(5 * 1024 * 1024);
 $telnet->waitfor('/User Name:$/i');
 $telnet->print('admin');
 $telnet->waitfor('/Password:$/i');
 $telnet->print('password');

 print ("Set Terminal Variable ",$_,"\n");
 $telnet->cmd("terminal datadump");

 print ("Create file ",$_,"\n");
 my $file = sprintf($folder."/".$_);
 print ("Create file ",$file,"\n");
 system "touch  $file";
 system "chown nobody $file";

 print ("Read configuration ",$_,"\n");
 my @config = $telnet->cmd("sh run");

 print ("Write configuration ",$_," to file ",$file,"\n");
 open my $fh, "> $file" or die "Can't open $file : $!";
  foreach (@config) {
    print $fh "$_"; # Print each entry in our array to the file
  }
  close $fh;

 print ("Set Terminal Variable ",$_,"\n");
 $telnet->cmd("no terminal datadump");

 $telnet->cmd("exit");
   }
 }

それを修正する方法は？

4

2 に答える 2

0

ドキュメントから：

login（）およびcmd（）メソッドは、オブジェクトのプロンプト設定を使用して、ログインまたはリモートコマンドがいつ完了したかを判別します。プロンプトを正しく設定しないと、これらのメソッドはタイムアウトして失敗します。

$telnetつまり、オブジェクトを作成するときにプロンプ​​トパラメータを追加する必要があります。

my $switch_name = 's-east';

my $telnet = new Net::Telnet ( 
   Timeout=>10,
   Errmode=>'return',
   Input_Log => "infile.log",
   Prompt => '/\Q$switch_name\E#\s?$/'   
);

（コマンドが完了したことを知るためにシェルプロンプトを探します）。

于 2013-03-04T10:47:07.467 に答える
0

の不安定さのためcmd()、私はを使用するように切り替えましたwaitfor(String => $string)。以下の新しいスクリプト：

foreach (@linksys_sps){

 my $file = sprintf($folder."/".$_);
 print ("Create file ",$file,"\n");
 system "touch  $file";

 my $string = sprintf($_."#");
 print ("Prompt String is ",$string,"\n");

 print ("Connecting to ",$_,"\n");
 my $telnet = new Net::Telnet (
                                Timeout=>20,
                                Errmode=>'return',
                                Input_Log => "infile.log"
                                );

 $telnet->open($_);
   if ($telnet->errmsg){
   print "Can't connect to " . $_ . " Error: " . $telnet->errmsg . "\n";
   } else {

 $telnet->waitfor('/User Name:$/i');
 $telnet->print('admin');
 $telnet->waitfor('/Password:$/i');
 $telnet->print('password');
 $telnet->waitfor(String => $string );

 print ("Set Backup Terminal Variable ",$_,"\n");
 $telnet->print("terminal datadump");
 $telnet->waitfor(String => $string );

 print ("Read configuration ",$_,"\n");
 $telnet->print('sh run');
 my @config = $telnet->waitfor(String => $string );

 print ("Write configuration ",$_," to file ",$file,"\n");
 open my $fh, '>', $file or die "Cannot open file: $!";
 foreach my $config (@config) {
    print $fh "$config\n";
    }
 close $fh;

 print ("Set Default Terminal Variable ",$_,"\n");
 $telnet->print('no terminal datadump');
 $telnet->waitfor(String => $string );

 $telnet->print('exit');
    }
 }
于 2013-03-05T11:57:55.587 に答える