关于包中的my变量的作用域问题

ace_fei

包代码：

1. #!/bin/perl
   
2. package test;
   
3. use Data::Dumper;
   
4. my @all;
   
5. sub new()
   
6. {
   
7.     my $ref = shift;
   
8.     $class = ref $ref || $ref;
   
9.     my $self = {};
   
10.     bless $self, $class;
    
11. }
    
12. 
    
13. sub test()
    
14. {
    
15.     my $self = shift;
    
16.     my $data = shift;
    
17.     push @all, $data;
    
18.     print "all_data is ", (join '#', @all), "\n";
    
19. }
    
20. 
    
21. 1;
    

复制代码

调用代码：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use test;
   
5. use Data::Dumper;
   
6. 
   
7. print "new a\n";
   
8. my $a = test->new();
   
9. $a->test("abc");
   
10. 
    
11. print "new b\n";
    
12. my $b = test->new();
    
13. $b->test("123");
    

复制代码

运行结果：

1. $perl test.pl
   
2. new a
   
3. all_data is abc
   
4. new b
   
5. all_data is abc#123
   

复制代码

my变量通常是临时的或只在程序的局部可访问，为什么我创建了a ， b两个对象，他们中的 my @all却是共享存储的？

zhlong8

不懂 closure 那也该知道类变量吧，就是那个意思

兰花仙子

my变量通常是临时的或只在程序的局部可访问，为什么我创建了a ， b两个对象，他们中的 my @all却是共享存储的？

你创建了个闭包，@all是在子函数之外声明的，是个闭包变量。
搜下我之前关于闭包的帖子。

zhlong8

我的头像怎么变成女人了

ace_fei

兰花仙子 发表于 2011-12-19 12:21
你创建了个闭包，@all是在子函数之外声明的，是个闭包变量。
搜下我之前关于闭包的帖子。

谢谢仙子，那篇文章讲的真好，应该加精的。

像我这种平时登录论坛的时间不多，上线只看精华区的人，真的是错过了很多好文章啊。

ace_fei

zhlong8 发表于 2011-12-19 11:16
不懂 closure 那也该知道类变量吧，就是那个意思

嗯，谢谢指点，我再去看看关于闭包的内容。

还是书看少了，我以为my变量只会在包内生效，看来我在需要每次new的时候给@all初始化一下。

ace_fei

兰花仙子 发表于 2011-12-19 12:21
你创建了个闭包，@all是在子函数之外声明的，是个闭包变量。
搜下我之前关于闭包的帖子。

我看了下书上关于闭包的说明，以及你的例子中，无一例外都会提到“匿名子函数”。
但是我写的程序里是没有用到匿名子函数，只有匿名散列。
那么，匿名子函数并不是形成闭包的必要条件？

包内只要有个子函数之外声明的my变量，然后包内的子函数中调用这个my变量，外部调用者new了这个包的对象，使用了其子函数，就形成了闭包。

兰花仙子

ace_fei 发表于 2011-12-19 17:04
我看了下书上关于闭包的说明，以及你的例子中，无一例外都会提到“匿名子函数”。
但是我写的程序里是没 ...

bless过程中其实就产生了这个匿名子函数。

ace_fei

兰花仙子 发表于 2011-12-19 18:53
bless过程中其实就产生了这个匿名子函数。

哦，这样我就懂了，再次感谢你的答复。