for 和foreach的区别？？

trbingqq

1. #!/usr/bin/perl
   
2. @arr=(1,2,3,4,5);
   
3. for ($i=0;$i<@arr;$i++){
   
4. open(FH,"./1.pl");
   
5. while(<FH>;){
   
6. #啥也不干
   
7. }
   
8. 
   
9. }
   
10. foreach(@arr){
    
11. print $_."\n";
    
12. }
    

复制代码

结果是打印1 2 3 4 5

1. #!/usr/bin/perl
   
2. @arr=(1,2,3,4,5);
   
3. foreach (@arr){
   
4. open(FH,"./1.pl");
   
5. while(<FH>){
   
6. #啥也不干
   
7. }
   
8. 
   
9. }
   
10. foreach(@arr){
    
11. print $_."\n";
    
12. }
    

复制代码

结果是打印5个空行

perl版本是：v5.8.8 built for x86_64-linux-thread-multi

请问是什么原因啊？ for 和foreach干的事不一样么？？

yybmsrs

第二个改变了$_的值

kk861123

@yybmsrs
同意：

1. #!/usr/bin/perl
   
2. @arr=(1,2,3,4,5);
   
3. foreach (@arr){
   
4. open(FH,"./1.pl");
   
5. while(<FH>){  # $_在这里被改变了
   
6. #啥也不干
   
7. }
   
8. 
   
9. }
   
10. foreach(@arr){
    
11. print $_."\n";
    
12. }

复制代码

trbingqq

回复 3# kk861123

1. #!/usr/bin/perl
   
2. @arr=(1,2,3,4,5);
   
3. @arr1=(9,90,91);
   
4. foreach (@arr){
   
5. 
   
6. foreach(@arr1){ #这里应该也会改变$_的值啊？？
   
7. #啥也不干
   
8. }
   
9. }
   
10. 
    
11. foreach(@arr){
    
12. print $_."\n";
    
13. }
    

复制代码

我改写成这样难道就不改变$_的值了？？

kk861123

trbingqq 发表于 2012-10-25 14:11
回复 3# kk861123 我改写成这样难道就不改变$_的值了？？

我也解释不了为什么while会将$_改变而foreach/for不会。还是请出版主吧@zhlong8

例子：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>) {
   
6.     print "in  : $_";
   
7.     last;
   
8. }
   
9. print "out : $_";
   
10. __DATA__
    
11. A
    
12. B
    
13. C
    

复制代码

kk861123

找到关于foreach的说法：

The foreach loop iterates over a normal list value and sets the variable VAR to be each element of the list in turn. If the variable is preceded with the keyword my, then it is lexically scoped, and is therefore visible only within the loop. Otherwise, the variable is implicitly local to the loop and regains its former value upon exiting the loop. If the variable was previously declared with my, it uses that variable instead of the global one, but it's still localized to the loop. This implicit localization occurs only in a foreach loop.

注意最后一句

zhlong8

while 那里是 Perl 众多设计缺陷之一

sjdy521

确实是个值得注意的地方

trbingqq

回复 7# zhlong8


    版主一锤定音