1つのforeach - perlに2つの配列

Question

私はperlでおそらく言い聞かせることができます...私はNet :: Application :: Sessionを使ってシスコのデバイスに変更を適用するスクリプトを使用しています。私は2つの配列を持っています、1はインターフェイスであり、1はインターフェイスの説明です。私は、コマンド「$は、S-> CMD []」そうのように入力する必要があります。

$s->cmd("interface $configDescription"); 
$s->cmd("description >> WAP - $desName <<"); 

しかし、私はforeach文でそれを行う方法を見つけ出すことはできません。以下は現在私がやっていることです、これは配列の最後の行だけを変更します。助言してください...私はこのサイトにnoobです。これで十分でない情報があれば、何が必要なのか教えてください。ありがとうございました。

foreach $configDescription (@changeme) { 
    foreach $desName (@changename) { 
     $s->cmd("interface $configDescription"); 
     $s->cmd("description >> WAP - $desName <<"); 
    }; 
}; 

Answer 1

パラレルアレイと呼ばれます。

for my $i (0..$#changeme) { 
    my $configDescription = $changeme[$i]; 
    my $desName   = $changename[$i]; 
    $s->cmd("interface $configDescription"); 
    $s->cmd("description >> WAP - $desName <<"); 
} 

または：（破壊）

while (@changeme) { 
    my $configDescription = shift(@changeme); 
    my $desName   = shift(@changename); 
    $s->cmd("interface $configDescription"); 
    $s->cmd("description >> WAP - $desName <<"); 
} 

Answer 2

別の方法、あなたは私のように、マップのgrepチェーンのように好きなら。

map { 
    $s->cmd("interface $_->[0]"); 
    $s->cmd("description >> WAP - $_->[1] <<"); 
} 
map { [ $changeme[$_], $changename[$_] ] } 
0..$#changeme 
; 

Answer 3

use Algorithm::Loops 'MapCar'; # or MapCarE, MapCarU, etc. 

MapCar { 
    my ($configDescription, $desName) = @_; 
    $s->cmd("interface $configDescription"); 
    $s->cmd("description >> WAP - $desName <<"); 
} \@changeme, \@changename; 

Answer 4

私はちょうど文書の目的のための別の解決策として、これを上に追加しようと思いました。

use List::MoreUtils qw(each_array); 

my $it = each_array(@changeme, @changename); 
       while (my ($configDescription, $desName) = $it->()) { 
       $s->cmd("interface $configDescription"); 
       $s->cmd("description >> WAP - $desName <<"); 
       };