我理解bless了，哈哈，给大家个例子。

DennisRitchie

程序说明

网上的很多教程都没有把bless讲清楚，我通过摸索和实验，终于明白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

1. 
   
2. #!/usr/bin/perl -w
   
3. package person;
   
4. use strict;
   
5. 
   
6. sub sleep() {
   
7.         my ($self) = @_;
   
8.         my $name = $self->{"name"};
   
9. 
   
10.         print("$name is person, he is sleeping\n");
    
11. }
    
12. 
    
13. sub study() {
    
14.         my ($self) = @_;
    
15.         my $name = $self->{"name"};
    
16. 
    
17.         print("$name is person, he is studying\n");
    
18. }
    
19. return 1;
    

复制代码

dog.pm

1. 
   
2. #!/usr/bin/perl -w
   
3. package dog;
   
4. use strict;
   
5. 
   
6. sub sleep() {
   
7.         my ($self) = @_;
   
8.         my $name = $self->{"name"};
   
9. 
   
10.         print("$name is dog, he is sleeping\n");
    
11. }
    
12. 
    
13. sub bark() {
    
14.         my ($self) = @_;
    
15.         my $name = $self->{"name"};
    
16. 
    
17.         print("$name is dog, he is barking\n");
    
18. }
    
19. 
    
20. return 1;
    

复制代码

bless.pl

1. 
   
2. #!/usr/bin/perl =w
   
3. use strict;
   
4. use person;
   
5. use dog;
   
6. 
   
7. sub main()
   
8. {
   
9.         my $object = {"name" => "tom"};
   
10. 
    
11.         # 先把"tom"变为人
    
12.         bless($object, "person");
    
13.         $object->sleep();
    
14.         $object->study();
    
15. 
    
16.         # 再把"tom"变为狗
    
17.         bless($object, "dog");
    
18.         $object->sleep();
    
19.         $object->bark();
    
20. 
    
21.         # 最后，再把"tom"变回人
    
22.         bless($object, "person");
    
23.         $object->sleep();
    
24.         $object->study();
    
25. }
    
26. 
    
27. &main();
    
28. 
    
29. # 程序运行时输出：
    
30. # tom is person, he is sleeping
    
31. # tom is person, he is studying
    
32. # tom is dog, he is sleeping
    
33. # tom is dog, he is barking
    
34. # tom is person, he is sleeping
    
35. # tom is person, he is studying
    

复制代码

bless.wrong.pl

1. 
   
2. #!/usr/bin/perl =w
   
3. use strict;
   
4. use person;
   
5. use dog;
   
6. 
   
7. sub main()
   
8. {
   
9.         my $object = {"name" => "tom"};
   
10. 
    
11.         # 没有把类型信息和$object绑定，因此无法获知$object有sleep方法
    
12.         $object->sleep();
    
13.         $object->study();
    
14. }
    
15. 
    
16. &main();
    
17. 
    
18. # 程序运行输出为：
    
19. # Can't call method "sleep" on unblessed reference at bless.wrong.pl line 10.
    

复制代码

使用c++实现bless的功能

c中的代码

1. 
   
2. #include <stdio.h>
   
3. #include <stdlib.h>
   
4. #include <string.h>
   
5. 
   
6. struct object {
   
7.         char name[16];
   
8. };
   
9. 
   
10. struct person {
    
11.         char name[16];
    
12. 
    
13.         void sleep() { printf("%s is person, he is sleeping\n", this->name); }
    
14.         void study() { printf("%s is person, he is studying\n", this->name); }
    
15. };
    
16. 
    
17. struct dog {
    
18.         char name[16];
    
19. 
    
20.         void sleep() { printf("%s is dog, he is sleeping\n", this->name); }
    
21.         void bark() { printf("%s is dog, he is barking\n", this->name); }
    
22. };
    
23. 
    
24. #define bless(object, type) ((type*) object)
    
25. 
    
26. int main()
    
27. {
    
28.         struct object * o = (struct object *) malloc(sizeof(struct object));
    
29.         strcpy(o->name, "tom");
    
30. 
    
31.         // 先把"tom"变为人
    
32.         bless(o, person)->sleep();
    
33.         bless(o, person)->study();
    
34. 
    
35.         // 再把"tom"变为狗
    
36.         bless(o, dog)->sleep();
    
37.         bless(o, dog)->bark();
    
38. 
    
39.         // 最后，再把"tom"变回人
    
40.         bless(o, person)->sleep();
    
41.         bless(o, person)->study();
    
42.         return 0;
    
43. }
    
44. 
    
45. // 程序运行时输出：
    
46. // tom is person, he is sleeping
    
47. // tom is person, he is studying
    
48. // tom is dog, he is sleeping
    
49. // tom is dog, he is barking
    
50. // tom is person, he is sleeping
    
51. // tom is person, he is studying
    

复制代码

关键的地方就是把对象o的类型转变为person类型和dog类型

[ 本帖最后由 DennisRitchie 于 2007-8-24 14:09 编辑 ]

royalzhang

."".    ."",
     |  |   /  /
     |  |  /  /
     |  | /  /
     |  |/  ;-._
     }  ` _/  / ;         恭喜！！！
     |  /` ) /  /
     | /  /_/\_/\
     |/  /      |
     (  ' \ '-  |
      \    `.  /
       |      |
        |      |

DennisRitchie

原帖由 royalzhang 于 2007-8-24 14:34 发表
."".    ."",
     |  |   /  /
     |  |  /  /
     |  | /  /
     |  |/  ;-._
     }  ` _/  / ;         恭喜！！！
     |  /` ) /  /
     | /  /_/\_/\
     |/  /      |
     (  ' \ '-   ...

谢谢，我已经跨入OO编程了，呵呵。

DigitalCam

厉害,学习了.

perlpg

楼主适合写程序啊，一上来就问的人得好好学学，其实知识就在身边，看你关心不关心而已。
接去，Perl有意思的东西多着呢，特别是写“严格”程序的人，保证越琢磨越有味，不过要用来写商品软件就要先想好了，毕竟……。

DennisRitchie

原帖由 pengchy 于 2007-8-25 12:46 发表
还以为bless只能用在.pm文件中呢！

perl的bless关键字对初学者是一个难点，部分原因就是bless的"英文含义"与它perl中的含义毫无关联，可以说是“驴头不对马嘴”！

福瑞哈哥

原帖由 DennisRitchie 于 2007-8-27 02:02 发表

perl的bless关键字对初学者是一个难点，部分原因就是bless的"英文含义"与它perl中的含义毫无关联，可以说是“驴头不对马嘴”！

拜托放轻松一些，编程也不要总是正襟危坐好不好？
怎么能说bless与它在perl中的含义毫无关联呢？
一个死气沉沉的引用，经过赐福，就神气活现地具有了某种灵性，这个词难道用的还不好吗？

JasonLee8872

原帖由 福瑞哈哥 于 2007-8-27 11:15 发表


拜托放轻松一些，编程也不要总是正襟危坐好不好？
怎么能说bless与它在perl中的含义毫无关联呢？
一个死气沉沉的引用，经过赐福，就神气活现地具有了某种灵性，这个词难道用的还不好吗？

同意，我也是这么理解的。
我的理解就直接是bless大致相当于面向对象的构造器，虽然没这回事，但基本就这效果。

[ 本帖最后由 JasonLee8872 于 2007-8-28 00:51 编辑 ]

initialization

狂顶，很到位