Perl的each操作符

16. each 操作符

• 从 Perl 5.12开始，数组也可以使用each操作符；
• 数组调用each，会返回数组中下一个元素对应的两个值——数组索引与元素值。

require v5.12;
my @rock = qw( bedrock slate rubble granite );
while (my ($index, $value) = each @rock) {
    print "$index: $value\n";
}

@rock = qw( bedrock slate rubble granite );
foreach my $index (0..$#rocks) {
    print "$index: $rock[$index]\n";
}