Perl 子程序内部变量 和全局变量重名，如何调用全局变量的问题？

panxinming90

如下例子

             my $str = "test";


             sub test {
                   my $str = "";
             }

如何在子程序中调用 全局变量$str;

jackson66

帮你up.

flw

省省吧。

小鹭

一定要这么调用吗？ 把全局变量作为参数传入比较好啊。
如果重名的话，函数只认自己的变量。

兰花仙子

如下例子

             my $str = "test";


             sub test {
                   my $str ...
panxinming90 发表于 2010-12-12 20:56

    非要用同名变量的话，可以定义一个package:

1. package A;
   
2. 
   
3. our $var = 123;
   
4. 
   
5. sub x {
   
6.    my $var = 456;
   
7.    print "local variable: ", $var,,"\n";
   
8.    print "package variable: ", $A::var,"\n";
   
9. }
   
10. 
    
11. x;

复制代码

kingwmj

学习了。。。

panxinming90

回复 5# 兰花仙子


   首先感谢你的回答， 使用package 可以。

不过我之所以问这个问题，因为 测试了 while (<>) {} 这个结构位于 sub {} 里面，
在 sub {} 中  直接 my @ARGV，  

但是 测试 whie (<>) 依旧使用的全局 @ARGV，所以就有了这一问。

事例：

1. sub test {
   
2.     my @ARGV = qw/ a b /;
   
3.     while (<>) {
   
4.       .....  
   
5.     }
   
6. }

复制代码

wfnh

回复 7# panxinming90

local @ARGV