foreach中调用函数的奇怪现象

toniz

toniz

foreach出来的就是别名，可以通过它改变数组内容滴。

toniz

貌似之前和其它人在这个版讨论过这问题，不过刚没翻到。。

toniz

下面这个代码可以说明部分问题。

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

复制代码

结果为：

cc
Value of dd

别名可以看成使用符号表的变量。而MY定义的变量是词法范围的。而你的代码func并没有传递参数，考虑到作用域，所以这里函数取到的就是MY的值。

如果用下面的代码：

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

复制代码

结果为：

cc
Value of cc

这时候就是使用符号表的变量。

所以这类代码为了避免混乱，最好是使用函数参数来传递值。

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

复制代码

nhw_cs

难道楼主所说的深意是指 VAR 其实只是别名，所以这样设计？
zhlong8 发表于 2010-11-11 14:55

    正解! 但此意不深 结贴!