大家讨论下Perl OO的实现方式以及特点

zhlong8

You can bless any reference. Nobody can touch the attributes without 'get'/'set' methods in foll ...
greencow 发表于 2011-01-21 23:01

    这个狠 {:2_170:}

会飞的cao鱼

回复 1# yiten

spam

yiten

You can bless any reference. Nobody can touch the attributes without 'get'/'set' methods in foll ...
greencow 发表于 2011-01-21 23:01

晕，你怎样OO出来会是个什么东西？
$h是个全局变量，各个对象之间会共享

兰花仙子

$h是个全局变量，各个对象之间会共享
yiten 发表于 2011-01-24 11:02

    怎么个全局共享法？能否演示一下？

yiten

怎么个全局共享法？能否演示一下？
兰花仙子 发表于 2011-01-24 11:48

$o1 = MyOO->oo();
$o2 = MyOO->oo();
$o1和$o2的$h指向同一个哈希，$o1往$h里头放的东西，$o2也能取出来

兰花仙子

$o1 = MyOO->oo();
$o2 = MyOO->oo();
$o1和$o2的$h指向同一个哈希，$o1往$h里头放的东西，$o2也能 ...
yiten 发表于 2011-01-24 12:19

    那麻烦再演示下怎么放，怎么取。。

yiten

看错了，不是同一个哈希，他这样写每oo一个对象，$h都要指向另外一个哈希。这同样是有问题的。

package MyOO;
use Data:umper;
my $h = {};
sub oo {
    my $class = shift;
    $h = {@_};
    my $obj='donot touch my values';
    bless \$obj, $class;
    return \$obj;
}
sub do_print {
    my $this = shift;

    print Dumper($h);
}

test.pl如下：
use strict;
use warnings;

use Data:umper;

use MyOO;

my $o1 = MyOO->oo( 'a' => 1);
my $o2 = MyOO->oo( 'a' => 2);
$o1->do_print();
$o2->do_print();
输出如下：
$VAR1 = {
          'a' => 2
        };
$VAR1 = {
          'a' => 2
        };

zhlong8

其实是把 $h 当作个集合就可以创建多个对象，保存每个对象就可以了，不过要用 weaken 加上 Readonly 效果更佳 {:2_169:}

yiten

对，一种方法是，用全局变量来保存各个实例引用。
为了各个实例之间的隔离，可以使用实例唯一标示符作为键。
Class::Std就是这样的原理，如ident，refaddr。但这也达不到完全的封装。

greencow

回复 39# yiten


确实有问题。这样会好些吧。

1. package MyOO;
   
2. use Data::Dumper;
   
3. my $h = [];
   
4. sub oo {
   
5.     my $class = shift;
   
6.     push @$h, {@_};
   
7.     bless \scalar(@$h), $class;
   
8. }
   
9. sub do_print {
   
10.     my $idx = ${$_[0]} - 1;
    
11.     print Dumper $h->[$idx];
    
12. }
    
13. 
    
14. 1;
    
15. 
    
16. package test;
    
17. use strict;
    
18. use warnings;
    
19. 
    
20. my $o1 = MyOO->oo( 'a' => 1);
    
21. my $o2 = MyOO->oo( 'a' => 2);
    
22. $o1->do_print;
    
23. $o2->do_print;
    

复制代码