arrays - 是否可以在 Perl foreach 循环中分配两个变量？

Question

是否可以在 Perl foreach 循环中将数组中的相同数据分配给两个变量？

我正在使用 Perl 5，我想我在 Perl 6 中遇到了一些问题。

像这样的东西:

my $var1;
my $var2;

foreach $var1,$var2 (@array){...}

Answer 1

它不是 Perl 5 核心语言，而是 List::Util有一个 pairs应该足够接近的函数(以及许多其他 pair... 可能更方便的函数，具体取决于您在循环内执行的操作):

#!/usr/bin/env perl    

use strict;
use warnings;
use 5.010;

use List::Util 'pairs';

my @list = qw(a 1 b 2 c 3);

for my $pair (pairs @list) {
  my ($first, $second) = @$pair;
  say "$first => $second";
}

输出:

a => 1
b => 2
c => 3