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

zhlong8

perl 的 OO 很容易理解，hack 着简单。不过写类的时候有点痛苦

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:}

zhlong8

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

zhlong8

写个变态点的，不过 perl 这种解释型的语言永远有办法 hack

1. package OO;
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. 
   
7. my %hash;
   
8. my $id = 0;
   
9. my($salt) = (rand()*100) =~ /^(..)/;
   
10. 
    
11. sub new {
    
12.     my $key = crypt $id, $salt;
    
13.     $key =~ s/^..//;
    
14.     $key .= $id++;
    
15.     my $obj = bless \$key, shift;
    
16. 
    
17.     $hash{$key} = {@_};
    
18.     return $obj;
    
19. }
    
20. 
    
21. sub get {
    
22.     print Dumper $hash{${+shift}};
    
23. }
    
24. 
    
25. sub DESTROY {
    
26.     my $self = shift;
    
27.     delete $hash{ $self};
    
28.     print "$self DESTROIED\n";
    
29. }
    
30. 
    
31. 1;

复制代码

为什么代码中不能写 $$ 晕

zhlong8

回复  zhlong8


哎，我还是觉得DESTROY不会被调用
yiten 发表于 2011-01-25 14:41

    我测试了可以调用 不过 DESTROY 那个 $hash{$$self} 才对，不知道为什么不能写两个 $$。%hash 中保存的是那个 $key 不会增加它的引用计数，$obj 没有多余的引用

1. perl -MOO -e "OO->new() for 1..10

复制代码

zhlong8

回复  zhlong8


你这个是因为这个进程结束后因为$h的销毁而导致$h所包含的对象全部销毁的吧。
而在进 ...
yiten 发表于 2011-01-25 14:54

    那你再加个 sleep 10000 看下？你认为哪里的引用计数有问题？

    DESTROY 只要这个 blessed ref 引用为0就调用的，$obj返回的时候和任何普通的对象一样啊。$key 也只有$obj 这里一次引用，$hash{$key} 这里的 $key 是复制的不增加引用计数。实际的对象那个 hashref 也只有一个引用 $hash{$key}

zhlong8

%hash 中保存的是那个 $key 不会增加它的引用计数？这个是真的吗？
yiten 发表于 2011-01-25 15:02

    你用 Devel::Peek 看下就知道hash有个 FLAG 是 SHAREKEYS，它像 lisp 的 symbol 一样有个内部的表保存所有的 key 保证不重复，以节省内存。所以它是复制的， 没注意过 values 返回的是 alias 而 keys 就不是？

zhlong8

回复  zhlong8


晕，往hash里头放引用时我们经常用的，我也没遇到过放进去后因为没有引用计数而被析构 ...
yiten 发表于 2011-01-25 15:19

    hash 的 key 和 value 处理方式不同，key 因为不能改变，所以做了个优化。你用引用做 key? 那也是转化为字符串格式啊

zhlong8

..是什么意思啊

请高手解答
rubyish 发表于 2011-09-12 10:28

    我的意思是对象的内部实现可以用一个 unique id 隐藏起来，由模块维护一个表，方法调用的时候由这个 ID 来查找真实的数据。