6
遍历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 ;