在perl中自动获取foreach循环中的循环索引

Question

如果我在Perl中有以下数组:

@x = qw(a b c);

然后我用它迭代它foreach,然后$_将引用数组中的当前元素:

foreach (@x) {
    print;
}

将打印:

abc

是否有类似的方法来获取当前元素的索引,而无需手动更新计数器？像这样的东西:

foreach (@x) {
    print $index;
}

在哪里$index更新,$_以产生输出:

012

Answer 1

就像codehead所说的那样,你必须迭代数组索引而不是元素.我更喜欢这种变体而不是C风格的循环:

for my $i (0 .. $#x) {
    print "$i: $x[$i]\n";
}

Answer 2

在5.10之前的Perl中,你可以说

#!/usr/bin/perl

use strict;
use warnings;

my @a = qw/a b c d e/;

my $index;
for my $elem (@a) {
    print "At index ", $index++, ", I saw $elem\n";
}

#or

for my $index (0 .. $#a) {
    print "At index $index I saw $a[$elem]\n";
}

在Perl 5.10中,您使用state来声明一个永远不会重新初始化的变量(与使用my创建的变量不同).这允许您将$index变量保持在较小的范围内,但可能导致错误(如果您第二次进入循环,它仍将具有最后一个值):

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

my @a = qw/a b c d e/;

for my $elem (@a) {
    state $index;
    say "At index ", $index++, ", I saw $elem";
}

在Perl 5.12中你可以说

#!/usr/bin/perl

use 5.012; # This enables strict
use warnings;

my @a = qw/a b c d e/;

while (my ($index, $elem) = each @a) {
    say "At index $index I saw $elem";
}

但要注意:你也有限制,你被允许用做什么@a,而遍历它each.

它现在对你没有帮助,但在Perl 6中你可以说

#!/usr/bin/perl6

my @a = <a b c d e>;
for @a Z 0 .. Inf -> $elem, $index {
    say "at index $index, I saw $elem"
}

所述Z操作者的两个列表拉链一起(即,它需要一个元件从第一清单中,然后从第二一个元件,再一个元件从第一,依此类推).第二个列表是一个惰性列表,其中包含从0到无穷大的每个整数(至少在理论上).该-> $elem, $index说,我们正处在一个时间从zip的结果取两个值.其余的应该看起来很正常(除非你不熟悉say5.10中的功能).

Answer 3

perldoc perlvar 似乎没有暗示任何这样的变数.

Answer 4

不是foreach.如果你肯定需要数组中的元素基数,请使用'for'迭代器.

for ($i=0; $i<@x; ++$i) {
  print "Element at index $i is " , $x[$i] , "\n";
}

Answer 5

Perl版本 while

可以用foreach循环完成(while不支持这个)

my @arr = (1111, 2222, 3333);

while (my ($index, $element) = each(@arr))
{
   # You may need to "use feature 'say';"
   say "Index: $index, Element: $element";
}

输出:

Index: 0, Element: 1111
Index: 1, Element: 2222
Index: 2, Element: 3333

Answer 6

不，您必须创建自己的柜台。又一个例子：

my $index;
foreach (@x) {
    print $index++;
}

用于索引时

my $index;
foreach (@x) {
    print $x[$index]+$y[$index];
    $index++;
}

当然，您可以使用等等local $index;代替my $index;。