Perl - 重複expect（）直到輸入被接受

Question

我正在使用Perl來自動化一些思科路由器上的腳本。基本的實現是它連接到一個給定的路由器列表，一個接一個地收集所需的信息。每次腳本連接到新路由器時，它都會請求一個密碼，這對所有路由器都是一樣的。

我有以下代碼捕獲密碼請求輸入密碼：

$session->expect(5, 
     [ 'password:' => sub { 
      $session->send("$password\r"); 
       #exp_continue; 
      }]); 

的問題是，有時密碼不被接受的第一次，無論出於何種原因。有沒有辦法重複上述代碼，直到密碼被接受？

Answer 1

超級簡單的實現：

my $tries = 0; 
my $max = 5; 
while ($tries < $max) { 
    $tries++; 
    # do your stuff 
    # assuming that you can assess the success of the password sending: 
    last if <test for successful condition>; 
} 

您可以設置的嘗試到什麼是適合您的情況的最大數量。