必须要将全局变量定义在子函数的前面?

yahoon

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub sum_of_2_items {
   
6.         print "you are calling subrouting sum_of_2_items.\n";
   
7.         return $a+$b;
   
8. }
   
9. 
   
10. my $a=15;
    
11. my $b=13;
    
12. my $sum=&sum_of_2_items;
    
13. print "here is the sum $sum\n";
    
14. print "here is the product sumx3=",(&sum_of_2_items)*3;

复制代码

输出如下
Name "main::a" used only once: possible typo at exsubadd.pl line 8.
Name "main::b" used only once: possible typo at exsubadd.pl line 8.
you are calling subrouting sum_of_2_items.
Use of uninitialized value in addition (+) at exsubadd.pl line 8.
Use of uninitialized value in addition (+) at exsubadd.pl line 8.
here is the sum 0
you are calling subrouting sum_of_2_items.
Use of uninitialized value in addition (+) at exsubadd.pl line 8.
Use of uninitialized value in addition (+) at exsubadd.pl line 8.
here is the product sumx3=0

难道必须要将全局变量定义在子函数的前面??
奇怪的是 我如果用
$a=15;
$b=13;
位置不变,就不报错了,但是这样不是违反了use strict的必须先使用my定义变量规则吗??

谁给解释一下哈,thanks

kk861123

你使用的是私有变量my，使用全局变量our

1. our $a=15;
   
2. 
   
3. our $b=13;
   
4. 
   

复制代码

兰花仙子

1. sub sum_of_2items {
   
2.         my ($x,$y) = @_;
   
3.         print "you are calling subrouting sum_of_2items.\n";
   
4.         $x+$y;
   
5. }
   
6. 
   
7. my $sum = sum_of_2items(1,2);

复制代码

1.传参进子函数；
2.避免使用$a $b作为变量名，它们是内置变量。

yahoon

回复 3# 兰花仙子

如果我想在子函数里面改变全局变量(my $x=15; my $y=13)的值是不是要用our而不能用my?
从我测试的结果看
什么操作符(my,our等)也不加也可以起到全局变量的效果


   

ttcn_cu

见flw 05年的帖子 （回到主题列表看本版精华区，第二个）
http://bbs.chinaunix.net/thread-556778-1-1.html

yahoon

回复 5# ttcn_cu

非常感谢, 我的理解是
my是闭合块里面的私有变量,作用域是从my定义开始到闭合块结束
而our是包全局变量,一旦定义(无论定义是在包的任何地方),都是全局有效的

如果没有my或者our开头,则认为它是全局变量

而当use strict时,必须先用our或者my来声明变量才可使用.
在我之前的例子里, 因为$a,$b是内部变量,所以不用声明也可以使用

我用的5.8.8 看来是这样



   

freewind31

按照仙子指示

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub sum_of_2_items
   
6. {
   
7.                 my ($x,$y) = @_;
   
8.         print "you are calling subrouting sum_of_2_items.\n";
   
9.         return $x+$y;
   
10. }
    
11. my $a=15;
    
12. my $b=13;
    
13. my $sum=&sum_of_2_items($a,$b);
    
14. print "here is the sum $sum\n";
    
15. print "here is the product sumx3=",(&sum_of_2_items($a,$b))*3;

复制代码

freewind31

输出：

1. you are calling subrouting sum_of_2_items.
   
2. here is the sum 28
   
3. you are calling subrouting sum_of_2_items.
   
4. here is the product sumx3=84

复制代码