Question

perl中foreach为什么输出不了第一行？

#! usr/bin/perl open FILE1,"fred"; print"文件fred："; foreach(@lines) { $line = pop @lines; print"$line\n"; }
fred文件中内容是
fred1
fred2
fred3

Answer 1

这是因为你foreach试图枚举@lines，而在枚举过程中pop又修改了@lines，因此foreach本身会出问题。从可能原因分析上，foreach试图从◎lines开头向结尾遍历，而遍历过程中结尾部分得元素又被你从列表中移除了，用其他编程语言得话说，迭代器iterator提早结束了。shift没有问题是因为遍历得方向和shift移除元素得方向正好相同，移除得元素恰好是已经遍历过得

你应该避免foreach和任何修改列表得函数合用，否则肯定会出错，正确得方法是使用while
while(@lines) 代替foreach(@lines)

如果用foreach，你应该用
foreach $line(reverse @lines)
{
printf "%s\n", $line;
}

Answer 2

open FILE1,"fred";
print"文件fred：";
foreach(@lines) { $line = pop @lines; print"$line\n"; }

呵呵, 你根本就没有读取过 fred 这个档呢. 应该写成

open FILE1, "fred";
@lines = <FILE1>;
close FILE1;
foreach(@lines) { $line = pop @lines; print"$line\n"; }
# 也可以写成
print foreach reverse @lines;

留意一下, pop() 是由尾走出来的, 所以结果会是 3,2,1 ... 的顺序
如果要顺向顺序, 你就要用 shift()

追问

谢谢您的回答
不过我错了，我的程序本来是:
#! usr/bin/perl
open FILE1,"fred";
@lines=;
foreach(@lines)
{ $line = pop @lines; print"$line\n"; }

我写错了。
但是我就是要逆向输出，上面这就不能输出1，只能输出3，2.
改成@lines=reverse，然后顺向输出就可以了，但是我想知道原因？为什么上面的不行

追答

首先. perl 入面的 foreach ( @array ) 的意思, 其实是一个 for (;;) 的延续,
也其实是以下一段的简化板

# 正向时

@lines = qw/ a b c e d/

for ( $i = 0; $i = 0; $i-- ) {
$_ = $lines[$i];
# ... 其他部聚
}
* 我们记得 for( ; ; ) 是需要中间那一块为真时, 才会执行

那麼, 你试试以下一段代码 :
@lines = reverse qw/ a b c /;
for ( $i = $#lines; $i >= 0; $i-- ) {
$_ = $lines[$i];
$str = pop @lines;
print "#nowIndex = $i, LastIndex = $#lines, String = $str, $/";
}
结果

#nowIndex = 2, LastIndex = 1, String = a,
#nowIndex = 1, LastIndex = 0, String = b,
#nowIndex = 0, LastIndex = -1, String = c,
因为 nowIndex ( $i ) 在路上一直都大於 0, 所以可以执行到底

@lines = qw/ a b c /;
for ( $i = 0; $i <= $#lines; $i++ ) {
$_ = $lines[$i];
$str = pop @lines;
print "#nowIndex = $i, LastIndex = $#lines, String = $str, $/";
}
结果:

#nowIndex = 0, LastIndex = 1, String = c,
#nowIndex = 1, LastIndex = 0, String = b,
来到这里, nowIndex ($i) 已大於 $#lines ( LastIndex ) , 所以就不会执行下去了