包变量

mu0641

请问
my $x = 17;
package A;
$x = 12;
package B;
$x = 20;
# $x is now 20.
# $A: x and $B: x are still undefined

为什么没有实现# $A: x and $B: x 的初始

package 开始不就是开始了一个新的名字空间了吗？

my $x = 17;
package A;
our $x = 12;
package B;
$x = 20;
print $A: x;  #out 20

#  $B: x are still undefined
我完全  不知道怎么去理解了。

[ 本帖最后由 mu0641 于 2008-12-25 17:29 编辑 ]

flw

要么你就全用英语，要么你就全用汉语。
不知道你想干什么。

MMMIX

看看 perlmod, perlsub

[ 本帖最后由 MMMIX 于 2008-12-25 20:17 编辑 ]

ynchnluiti

1. our $x = 17;
   
2. 
   
3. package A;
   
4. our $x = 12;
   
5. 
   
6. package B;
   
7. our $x = 20;

复制代码