foreach循环只输出数组的一半

gallanthunter

1. #! /usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @array;
   
7. my $i;
   
8. for($i = 0;$i < 10;++$i)
   
9. {
   
10.         push(@array,$i);
    
11. }
    
12. print "@array\n";
    
13. print "temp\tarray\t\t\tvar\n";
    
14. foreach my $var (@array)
    
15. {
    
16.         my $temp = pop @array;
    
17.         print "$temp\t";
    
18.         print "@array\t\t";
    
19.         print "$var\n";
    
20. }
    
21. print "\n"
    

复制代码

输出：

hunter:/opt/tmp # ./array.pl
0 1 2 3 4 5 6 7 8 9
temp    array                   var
9       0 1 2 3 4 5 6 7 8               0
8       0 1 2 3 4 5 6 7         1
7       0 1 2 3 4 5 6           2
6       0 1 2 3 4 5             3
5       0 1 2 3 4               4

为什么我只能循环5次就退出了呢？

ziyunfei

清清楚楚 明明白白 数组元素就剩五个了，当然退出了

珞水的大叔

pop @array会减少@array中元素的个数啊

leigh111

边循环边修改数组变量。如果你要对一个数组做两件事，最好 再定义一个 临时变量。

fkiori

每循环1次。pop弹出一个变量，这样数组元素就少1.

循环了5次，弹出了5个。那么 数组就剩余5个了啊。那不是就完了吗