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

yiten

回复  yiten


确实有问题。这样会好些吧。
greencow 发表于 2011-01-24 16:42

这个挺巧，和用hash做全局变量的道理一样。
但是有个问题，在类代码里，必须有个约定，必须使用$this-1来取得自己相关的值，否则，你写个$h->[1]，那么就把某个实例给插了。

但是还有一个更严重的问题，这样实例引用得不到释放。oo了100个实例，这些实例会一直被$h所引用，直到进程结束才释放

greencow

回复 44# yiten


    第一个问题：bless的时候可以先减一。第二个问题：析构函数里delete数组成员，但要小心array size可能会变化。

    Perl 是很棒的工具和玩具，但如果不小心也很容易杯具。Java很严格和严肃，就不会这样。

    刚看了一些golang，也是一个很好的玩具，但难以判断其未来。

yiten

回复 45# greencow


减1加1都没法解决，如果代码里写个$h->[1]=4，那么你在oo第2个实例的时候，就把前面的存储在下标1的实例踢掉了。
而对于你说的构析函数，你觉得这样构析函数能被调用吗？

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;

复制代码

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

yiten

回复 47# zhlong8


哎，我还是觉得DESTROY不会被调用

zhlong8

回复  zhlong8


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

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

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

复制代码

yiten

回复 49# zhlong8


你这个是因为这个进程结束后因为$h的销毁而导致$h所包含的对象全部销毁的吧。
而在进程结束之前，所有的实例都因为被引用在$h里而不会被析构，就是说所有的实例生命周期将和$h一样长

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}

yiten

%hash 中保存的是那个 $key 不会增加它的引用计数？这个是真的吗？

zhlong8

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

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