Chinaunix

标题: foreach循环只输出数组的一半 [打印本页]

作者: gallanthunter 时间: 2011-03-21 19:11
标题: foreach循环只输出数组的一半

#! /usr/bin/perl
use strict;
use warnings;
my @array;
my $i;
for($i = 0;$i < 10;++$i)
{
push(@array,$i);
}
print "@array\n";
print "temp\tarray\t\t\tvar\n";
foreach my $var (@array)
{
my $temp = pop @array;
print "$temp\t";
print "@array\t\t";
print "$var\n";
}
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 时间: 2011-03-21 19:23
清清楚楚明明白白数组元素就剩五个了，当然退出了

作者: 珞水的大叔 时间: 2011-03-21 19:50
pop @array会减少@array中元素的个数啊

作者: leigh111 时间: 2011-03-21 20:58
边循环边修改数组变量。如果你要对一个数组做两件事，最好再定义一个临时变量。

作者: fkiori 时间: 2011-03-23 08:48
每循环1次。pop弹出一个变量，这样数组元素就少1.

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

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)