perl 类 相关

1       构造函数是 类 的子程序，它返回与 类 名相 关 的一个引用。将 类 名与引用相 结 合称 为 “祝福”一个 对 象，因 为 建立 该结 合的函数名 为 bless() ，其 语 法 为 ：

    bless     Reference  [classname]

   YeReference 是 对 被“祝福”的 对 象的引用， classname 是可 选项 ，指定 对 象 获 取方法的包名，其缺省 值为 当前包名。 创 建一个构建函数的方法 为 返回已与 该类结 合的内部 结 构的引用，如：

    sub new {

      my $class   = shift;

      my $this = {};          

      bless $this,$classs; 

     return $this

    }

    1;

    {} 创 建一个 对 不含 键 / 值对 的哈希表（即 关联 数 组 ）的引用，返回 值 被 赋给 局域 变 量 $this 。函数 bless() 取出 该 引用，告 诉对 象它引用的是当前包，最后返回 该 引用。函数的返回 值现 在指向 这 个匿名哈希表。

    从 new() 函数返回后， $this 引用被 销毁 ，但 调 用函数保存了 对该 哈希表的引用，因此 该 哈希表的引用数不会 为 零，从而使 Perl 在内存中保存 该 哈希表。 创 建 对 象可如下 调 用：

    $obj = new Class;

2   类中定义函数的第一个参数是类的引用，所以在实现的时候，我们可以通过：

 my $self  = shift;    得到这个引用，再进行具体的操作。

3