关于perl 里类的实现的一些疑惑

我一直对perl 里类的实现和使用有些迷糊, 书也看了, 但还是有些晕晕呼呼, 我觉得还是讨论来的快, 所以在此写一下关于我自己对perl类的理解, 希望大家能给于指点:
我的理解:
首先perl 的类就是一个包, 在这个包里定义的函数就是类的方法. 
类整个的实现,是通过一个匿名hash引用实现的
通过hash 这种数据结构, 一个变量就可以映射一个复杂的数据结构, 这个变量也就是这个hash的引用. 

my $self = {};
$self->{data1} = 1;
$self->{data2} = 2;
以上是数据的上, hash 对类的实现,
＊问题1.  那么类的方法(包里函数)怎么实现的?
是hash 里面存了 子函数的引用?　然后就可以通过这个引用来调用函数,达到了类里对方法的调用的目的? 

＊问题２. 为什么类的方法的第一个参数都是类本身(那个引用变量)
因为这个类整个就是一个hash ,所以如果要操作类的数据(hash的数据), 就要通过hash的引用来访问,所以在类的方法体里, 需要一个这样的变量, 来对hash本身的数据,方法进行操作. 这样理解对不?　：）


sub new {
    my $class = shift;
    my $self = {};
    bless $self,$class;
    return $self;
    }

＊问题３. 每个类都会有个初始化函数new, 这new 是创造这个hash的地方. 但为啥也要先shift 一个class, 这个时候,那个承载类的hash应该还没有创建吧, 这个shift ,会得到什么? 还是根本就没用, 只是声明了个变量?

问题4. 哪位明白的高人,给解释一下bless, 是干啥的,  如果以上代码这样写
sub new {
    my $class = shift;
    my $self = {};
    $class = $class; 
    return $self;
    }
效果是不是一样呢?

大概就这些困惑吧, 主要是对perl里类的实现机制没个清晰的把握, 希望已经明白的, 有经验的兄弟或姐妹能深入的谈一下, 自己的理解 , 谢谢了:)

希望讨论使大家对perl 的类有一个更清晰的理解, 能够对困惑, 迷糊朋友有所帮助!!

---

 flw 回复于：2006-12-07 17:57:20

问题1的回答：
hash 里面没有存它的方法，这完全是 -> 操作符的功劳。-> 操作符其实也没有什么神秘之处，它只不过是调用了一下它右边的那个 sub（注），并且把左边的那个引用变量 unshift 到 sub 的参数列表中去。注：为了正确地找到右边的那个 sub，它还需要把左边的那个引用变量 ref 一下取出原先 bless 进去的那个 tag

问题2的回答：
你理解的是正确的。

问题3的回答：
new 的第一个参数是 $class，不是 $self，也就是说，new 的第一个参数是类名称，而不是对象，你估计是自己把自己绕糊涂了，根本就不存在你所说的“那个承载类的hash应该还没有创建吧”的问题——你该不会连“类”和“类的实例”这两个概念都搞不清楚吧？

问题4的回答：
bless 的作用是给第一个参数（必须是个引用）打上一个印记（就好像盖个戳一样），而这个印记就标明了这个引用从此以后应该属于哪个类。理解了这个之后，你就明白 bless $self, $class 和 $class = $self 其实是完全不同的东西。bless $self, $class 之后，$class 还是原来的值，$self 也还是原来的值，只不过 $self 的印记变成了 $class 的内容。$class = $self 则是把 $class 变成和 $self 值相同的一个变量。

题外话：
1，new 的名称不是 Perl 语法的一部分，你完全可以叫 create, construct, build, 或者别的东西。
2，对象也不一定要用 hash 引用来存储数据，事实上任何类型的引用都可以，只不过 hash 引用正好方便表示 OOP 里面的“属性=>值”这种模型而已。事实上，CPAN 上就有一组用数组引用来构造类体系的，更加省空间。
3，Perl 对 OOP 提供的语法很有限，但是支持 OOP 的大多数概念。这些有限的语法包括 bless 函数、package 语句、-> 操作符、还有 @ISA 数组，以及 SUPER UNIVERSAL 等有限的几个关键字。除此以外我想再没有别的东西了。