Perl 面向对象编程时 bless()函数的使用 .docxVIP

1、说明

本程序演示了在Perl中如何进行面向对象编程：演示程序包含两个文件：person.pl和person.pm，把person.pl和person.pm放在当前目录下，运行perlperson.pl即可以看到结果。person.pm定义了名为person的类。person.pl中创建了person类的实例，并测试了person的成员方法。

2、person.pm的内容

#!/usr/bin/perl-w

packageperson;

usestrict;

subnew{

??????my$class=shift();

??????print(CLASS=$class\n);

??????my$self={};

??????$self-{name}=shift();

??????$self-{sex}=shift();

??????bless$self,$class;

??????return$self;

}

subgetName{

??????my($self)=@_;

??????return$self-{name};

}

subsetName{

??????my($self,$name)=@_;

??????$self-{name}=$name;

}

subgetSex{

??????my($self)=@_;

??????return$self-{sex};

}

subsetSex{

??????my($self,$sex)=@_;

??????$self-{sex}=$sex;

}

1;

注意new方法中的最后一行：

return$self;

我发现去掉这条语句程序还是可以正常运行，有谁知道为什么？

3、person.pl的内容

#!/usr/bin/perl-w

usestrict;

useperson;

submain()

{

??????my$tom=person-new(Tom,male);

??????my$kiss=person-new(Kiss,female);

??????my@persons=($tom,$kiss);

??????formy$p(@persons){

??????????printf(NAME:%s\tSEX:%s\n,$p-getName(),$p-getSex());

??????}

}

main();

?

4、程序运行结果

QUOTE:

CLASS=person

CLASS=person

NAME:Tom????SEX:male

NAME:Kiss????SEX:female

5、当调用person-new(Tom,male)时发生了哪些事情?

下面我们将重点分析下面的代码，为了查看方便，我把它粘贴过来了：

subnew{

??????my$class=shift();

??????print(CLASS=$class\n);

??????my$self={};

??????$self-{name}=shift();

??????$self-{sex}=shift();

??????bless$self,$class;

??????return$self;

}

当调用person-new(Tom,male)时，有3个参数被传递给person中的new函数，它们分别是:类的名称person(这是一个隐含参数)、Tom、male。

语句my$class=shift();获得第一个参数

语句my$self={};创建一个哈希表对象的引用

语句$self-{name}=shift();把传进来的第二个参数存入到哈希表中。

语句$self-{sex}=shift();把传进来的第三个参数存入到哈希表中。

语句bless$self,$class，我把bless理解为把类型信息和变量绑定：

$self是一个指针，在这里指向了一个哈希表对象的引用

$class是一个字符串，在这里是person类的名字

在perl中，根据类的名字可以查找到这个类所有的成员方法和成员变量，因此类的名称就代表了类的类型信息！

所谓bless就是把person类的类型信息赋予哈希表对象的引用

语句return$self;则返回哈希表对象的引用

这里我有两个问题：

为什么我把person-new()中最后一条r