局部变量加全局变量

SybaseLU

1. 
   
2. #!/usr/local/bin/perl
   
3. 
   
4. use vars qw($gloabl_1 $gloabl_2);
   
5. 
   
6. $gloabl_1 = 1000;
   
7. 
   
8. for ( my $gloabl_1 = 0; $gloabl_1 < 10; $gloabl_1++) {
   
9.       print  $gloabl_1;   #如果想将局部变量my $gloabl_1加上全局变量$gloabl_1如何办？
   
10. }
    
11. 
    
12. print "\n=======\n";
    
13. print $gloabl_1;
    
14. 
    

复制代码

flw

局部变量请不要用 global_ 打头，谢谢！
全局变量总是可以用全限定名称来访问的。
像这样： $main::foo;