单个foreach中的2个数组 - perl

Question

我很可能会告诉我...我正在使用一个脚本来使用Net :: Application :: Session将更改应用到Cisco设备.我有2个数组,1个是接口,1个是接口描述.我需要输入命令"$ s-> cmd []",如下所示:

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

但我无法弄清楚如何使用foreach语句来做到这一点.以下是我目前正在做的事情,这只会更改数组中的最后一行.请告知...我是这个网站的菜鸟,如果这还不够,请告诉我需要什么.谢谢.

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 <<");
}