遍历Perl数组的最佳方法
在Perl数组中进行迭代的最佳方法（在速度和内存使用方面）是哪种？有什么更好的办法吗？（@Array无需保留）。
实施1 foreach (@Array) { SubRoutine($); } 实施2 while($Element=shift(@Array)) { SubRoutine($Element); } 实施3 while(scalar(@Array) !=0) { $Element=shift(@Array); SubRoutine($Element); } 实施4 for my $i (0 .. $#Array) { SubRoutine($Array[$i]); } 实施5 map { SubRoutine($) } @Array ; 问题来源于stack overflow
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
-
就速度而言：＃1和＃4，但在大多数情况下并没有太多。
您可以编写一个基准进行确认，但是我怀疑您会发现＃1和＃4会稍快一些，因为迭代工作是在C而不是Perl中完成的，并且不会发生不必要的数组元素复制。（$_被混叠到元件在＃1，但＃2和＃3上实际复制的标量从阵列）。
＃5可能相似。
在内存使用方面：除了＃5以外，它们都是相同的。
for (@a)是特殊情况，以避免使数组变平。循环遍历数组的索引。
在可读性方面：＃1。
在灵活性方面：＃1 /＃4和＃5。
＃2不支持错误的元素。＃2和＃3具有破坏性。
2020-02-08 12:10:17赞同 展开评论