[求助]关于在foreach中shift后，$_的奇怪现象

ZAROK

晚生初学perl，今天练习时想写一个自己看不懂的脚本，结果写了一个……汗……的确看不懂……

1. #!/usr/bin/perl
   
2. my @rray = 0..9;
   
3. foreach (@rray) {
   
4.         print "\$_=$_\t";
   
5.         shift @rray;
   
6.         print "\$_=$_\t";
   
7.         $_ = "_";
   
8.         print "@rray\n";
   
9. }

复制代码

主要是很费解它的输出：

1. 
   
2. $_=0    $_=0    1 2 3 4 5 6 7 8 9
   
3. $_=2    $_=2    _ 3 4 5 6 7 8 9
   
4. $_=4    $_=4    3 _ 5 6 7 8 9
   
5. $_=6    $_=6    _ 5 _ 7 8 9
   
6. $_=8    $_=8    5 _ 7 _ 9
   

复制代码

不难看出，在$_对应的元素被shift掉之后，$_仍然存在，且给它附的值仍然是有效的——即便它对应的元素已经不存在了，请问这时候$_代表的是什么？

[ 本帖最后由 ZAROK 于 2009-12-14 16:12 编辑 ]

DQP

If any part of LIST is an array, foreach will get very confused if you add or remove elements within the loop body, for example with splice. So don't do that.

perldoc perlsyn

从逻辑上说不通的行为 标准似乎也没定意

ZAROK

sounds meanful....

我只是觉得……如果捂上输出的第一行，其他行的结果是可以理解的，只是第一行输出不合逻辑
……或许foreach是在报复我吧

ZAROK

这种情况下如果不在loop body给$_赋值，但保持shift，我试了一下，foreach并没有报错说“Asshole! I'm confused!”
输出是

1. 
   
2. $_=0    $_=0    1 2 3 4 5 6 7 8 9
   
3. $_=2    $_=2    2 3 4 5 6 7 8 9
   
4. $_=4    $_=4    3 4 5 6 7 8 9
   
5. $_=6    $_=6    4 5 6 7 8 9
   
6. $_=8    $_=8    5 6 7 8 9
   

复制代码

这个结果是符合逻辑的，foreach严格的在第一次循环用$_代表数组的第一个元素，第二次循$_环代表第二个元素（尽管是shift之后的第二个，但的确是“当前的”第二个），然后以此类推……