foreach中调用函数的奇怪现象

nhw_cs

废话少说, 请看:

test1.pl:
------------------
#!/usr/bin/perl -w

my $var1="dd";
my @var2=("aa", "bb", "cc";
while( $var1=shift(@var2)) {
&func;
}

sub func {
print "Value of var1var1\n";
}
--------------------
执行结果:
Value of var1:aa
Value of var1:bb
Value of var1:cc

test2.pl
-------------------------------
#!/usr/bin/perl -w

my $var1="dd";
my @var2=("aa", "bb", "cc";
foreach $var1 (@var2) {
&func;
}

sub func {
print "Value of var1var1\n";
}
----------------------

执行结果:
Value of var1:dd
Value of var1:dd
Value of var1:dd

两段代码看上去逻辑上应该等价， 为什么结果不同?

iamlimeng

变量作用域的问题。

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $var1="dd";
   
7. my @var2=("aa", "bb", "cc");
   
8. foreach $var1 (@var2) {
   
9.         print "$var1\n";
   
10.         &func;
    
11. }
    
12. 
    
13. sub func {
    
14.         print "Value of var1 $var1\n";
    
15. }

复制代码

nhw_cs

回复 2# iamlimeng


  我知道是变量作用域问题, 但为什么foreach怎么这么特殊? 怎么就和while不同了? 求甚解 ....

zhlong8

回复 1# nhw_cs


    perlsyn

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 localisation occurs only in a foreach loop.

gaochong

回复 3# nhw_cs


    控制变量，建议加my

happig

回复  nhw_cs


    perlsyn
zhlong8 发表于 2010-11-11 12:11

    先翻配套手册这种习惯是解决问题的有效途径！

alabos

foreach 隐式的声明了  my $var1 它做为一个自己的私有变量用了。

nhw_cs

foreach 隐式的声明了  my $var1 它做为一个自己的私有变量用了。
alabos 发表于 2010-11-11 14:21

    上面的英文解释已经说明这个问题了。 到这里对很多人来说问题就结束了， 但我仍认为这不能算是完全的"求甚解". 因为我想肯定很多人都觉得perl这样规定很奇怪， 当然人家这样做肯定有他的原因， 那我们就再进一步问: Perl为什么要这样做? 弄清这个才算到底。而不是仅仅记住这样一个规定.

我其实好像已经知道为什么了， 但我现在还不说 .....

nhw_cs

回复  nhw_cs


    控制变量，建议加my
gaochong 发表于 2010-11-11 12:48

   
作为一个05年注册的非新人， 这么唐突的回答令我愕然. 我虽然不是perl高手， 但深谙编程语言的内在本质, 如果是my这样简单的问题， 我会拿来问么? 高手的问题肯定没那么简单 ....

zhlong8

难道楼主所说的深意是指 VAR 其实只是别名，所以这样设计？