perl bless

**********本文为转载，作者写的通俗易懂，很是受教，非常感谢您的分享**********************

程序说明

bless有两个参数：对象的引用、类的名称。
类的名称是一个字符串，代表了类的类型信息，这是理解bless的关键。
所谓bless就是把类型信息赋予实例变量。

程序包括5个文件：
person.pm ：实现了person类
dog.pm ：实现了dog类
bless.pl ：正确的使用bless
bless.wrong.pl ：错误的使用bless
bless.cc ：使用C++语言实现了与bless.pl相同功能的代码

person.pm

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl -w
package person;
use strict;

sub sleep() {
my ($self) = @_;
my $name = $self->{"name"};

print("$name is person, he is sleeping/n");
}

sub study() {
my ($self) = @_;
my $name = $self->{"name"};

print("$name is person, he is studying/n");
}
return 1;

dog.pm

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl -w
package dog;
use strict;

sub sleep() {
my ($self) = @_;
my $name = $self->{"name"};

print("$name is dog, he is sleeping/n");
}

sub bark() {
my ($self) = @_;
my $name = $self->{"name"};

print("$name is dog, he is barking/n");
}

return 1;

bless.pl

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl =w
use strict;
use person;
use dog;

sub main()
{
my $object = {"name" => "tom"};

# 先把"tom"变为人
      bless($object, "person");
      $object->sleep();
      $object->study();

# 再把"tom"变为狗
      bless($object, "dog");
      $object->sleep();
      $object->bark();

# 最后，再把"tom"变回人
      bless($object, "person");
      $object->sleep();
      $object->study();
}

&main();

# 程序运行时输出：
# tom is person, he is sleeping
# tom is person, he is studying
# tom is dog, he is sleeping
# tom is dog, he is barking
# tom is person, he is sleeping
# tom is person, he is studying

bless.wrong.pl

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl =w
use strict;
use person;
use dog;

sub main()
{
my $object = {"name" => "tom"};

# 没有把类型信息和$object绑定，因此无法获知$object有sleep方法
$object->sleep();
$object->study();
}

&main();

# 程序运行输出为：

# Can't call method "sleep" on unblessed reference at bless.wrong.pl line 10.

****************************************************

本文转自，http://bbs.chinaunix.net/viewthread.php?tid=981190

****************************************************

perl bless相关推荐

Perl: Bless略解 z
下面语句为使用该包创建对象的例子: 1 #!/usr/bin/perl 2 push (@INC,'pwd'); #Dos下为 cd 命令 3 use Cocoa; 4 $cup = new Coco ...
perl中bless的理解(zz) z
bless有两个参数:对象的引用.类的名称. 类的名称是一个字符串,代表了类的类型信息,这是理解bless的关键. 所谓bless就是把类型信息赋予实例变量. 程序包括5个文件: person. ...
perl中bless的理解
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! bles ...
Perl中的bless的理解
bless有两个参数:对象的引用.类的名称. 类的名称是一个字符串,代表了类的类型信息,这是理解bless的关键. 所谓bless就是把类型信息赋予实例变量. [xywang@mnsdev1 ...
perl数组硬引用_perl引用和数组 - SibylY的个人空间 - OSCHINA - 中文开源技术交流社区...
一.引用常见数据类型的引用定义: 数据类型定义举例标量变量 \$Var $Point ...
浅谈Perl的类、包、模块与面对对象编程
http://blog.chinaunix.net/uid-27464093-id-3308003.html Perl面向对象Perl面向对象学习例子实例代码教程 - 在我们了解perl的面向对象的概 ...
Perl 之 use(), require(), do(), %INC and @INC
来源: http://www.cnblogs.com/itech/archive/2013/03/12/2956185.html 转自:http://perl.apache.org/docs/gene ...
perl anyevent socket监控web日志client
此脚本为client端的code,主要实现读取日志中的一些关键词进行过滤,以下介绍几个模块的用途: File::Tail 用于读取日志,功能类似于linux中tail ,只读取最新的日志 AnyEv ...
Perl 面对对象的案例理解
晚上仔细的推敲了下大骆驼的案例,由于有段时间没继续看下去了,导致有些地方忘记了. 今天仔细的翻了下面对对象那块,说实话,认真看,用心看的话,就能看明白它写神码. 看完前面一堆的理论,发现一个特点,它简 ...

perl bless

perl bless相关推荐

最新文章

热门文章