perl - 循环变量上缺少 $

Question

#!/usr/bin/perl
use strict;
use warnings;

my @array = qw[a b c];
foreach my($a,$b,$c) (@array) {
    print "$a , $b , $c\n";
}

我收到以下错误:

Missing $ on loop variable

怎么了？

我正在使用:perl v5.10.1 (*) built for x86_64-linux-thread-multi

Answer 1

要在每次迭代中获取多个列表项，请使用 List::MoreUtils::natatime 之类的内容
或使用拼接:

my @tmparray = @array; # don't trash original array
while ( my ($a,$b,$c) = splice(@tmparray,0,3) ) {
    print "$a , $b , $c\n";
}

或者将您的数据重新组织到多个数组中，并使用 Algorithm::Loops::MapCar* 函数之一一次循环遍历多个数组。