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

发布时间：2020-12-15 21:28:56 所属栏目：大数据来源：网络整理

导读：如果我在Perl中有以下数组： @x = qw(a b c); 我用foreach遍历它，然后$ _将引用数组中的当前元素： foreach (@x) { print;} 将打印： abc 有没有类似的方法获取当前元素的索引，而不需要手动更新计数器？例如： foreach (@x) { print $index;} 其中$ index

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

@x = qw(a b c);

我用foreach遍历它，然后$ _将引用数组中的当前元素：

foreach (@x) {
    print;
}

将打印：

abc

有没有类似的方法获取当前元素的索引，而不需要手动更新计数器？例如：

foreach (@x) {
    print $index;
}

其中$ index更新为$ _，以产生输出：

解决方法

像代码头说，你必须迭代数组索引，而不是它的元素。我喜欢这个变体比C风格for循环：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!