请教高手——关于perl对象封装的问题

perlearner

求教各位高手，小弟初学perl，最近正在看《Intermediate Perl》，到
第十二章 Getting Our Deposit Back 一节开始思路有些混乱，从这节开始好像是讲对象setter返回值和对象的封装性的，但是看了几遍之后还是一头雾水，请各位老师指点一下有关perl 对象封装具体实现 的问题，根据代码对比和说明封装是怎样实现隐藏内部数据结构的，不胜感激，小弟谢了~

x9x9

这一节主要讲setter更新完成后返回什么好。
作者先列出4种返回值的情况。指出每种都有优劣。
然后分别讲解一下。
最后summary：

In summary: use what you want, be consistent if you can, but document it nonetheless (and don't change it after you've already released one version).

大意为：用你所用，但尽可能保持一致性，在文档中给个说明。一旦发布就别改了。

这一节应该思路很清晰的。

perlearner

回复 2# x9x9


    多谢，还有一个问题，对象的封装，怎样实现？麻烦您能通过代码举例说明一下吗？

兰花仙子

回复  x9x9


    多谢，还有一个问题，对象的封装，怎样实现？麻烦您能通过代码举例说明一下吗？
perlearner 发表于 2011-11-30 16:47

    这个话题太泛。看完那本书，多练习几遍，就明白了。

Cu_fans

Person.pm

1. package Person;
   
2. 
   
3. sub new
   
4. {
   
5.         my $class = shift;
   
6.         my $self = {
   
7.                 NAME => 'CU_fans',
   
8.                 AGE  => 28
   
9.                 };
   
10.         bless $self, $class;
    
11.        
    
12.         return $self;
    
13. }
    
14. 
    
15. sub name
    
16. {
    
17.         my $self = shift;
    
18.         if (@_)
    
19.         {
    
20.                 $self->{NAME} = shift;
    
21.         }
    
22.         return $self->{NAME};
    
23. }
    
24. 
    
25. sub age
    
26. {
    
27.         my $self = shift;
    
28.         if (@_)
    
29.         {
    
30.                 $self->{AGE} = shift;
    
31.         }
    
32.         return $self->{AGE};
    
33. }
    
34. 
    
35. sub set_name
    
36. {
    
37.         my $self = shift;
    
38.         $self->{NAME} = shift if (@_);
    
39.        
    
40.         return $self->{NAME};
    
41. }
    
42. 
    
43. 1;

复制代码

test.pl

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Person;
   
5. 
   
6. my $person = Person->new();
   
7. my $name = $person->name();
   
8. print $name,"\n";
   
9. 
   
10. my $age = $person->age();
    
11. print $age,"\n";
    
12. 
    
13. $person->set_name("test");
    
14. my $name1 = $person->name();
    
15. print $name1,"\n";

复制代码

简单演示的例子

cobrawgl

如果刚学 perl 的 OO，不如直接学 Moose 算了，结合 5.14 的 package block，很好

1. #!/usr/bin/perl
   
2. 
   
3. use 5.014;
   
4. 
   
5. package Person {
   
6.         use Moose;
   
7. 
   
8.         has name => (is => 'rw', isa => 'Str');
   
9.         has age  => (is => 'rw', isa => 'Int');
   
10. }
    
11. 
    
12. my $p = Person->new(name => 'Perl 5', age => '20');
    
13. 
    
14. say $p->name;
    
15. say $p->age;
    
16. 
    
17. $p->name('Perl 6');
    
18. $p->age('15');
    
19. 
    
20. say $p->name;
    
21. say $p->age;

复制代码

perlearner

回复 6# cobrawgl


    非常感谢cobrawgl，Cu_fans和仙子，小弟现在正在学习perl，到面向对象的部分的时候一直一头雾水，请问在perl中关于OO的部分应该怎样学习？请给位指点迷津，谢谢~

redicaps

回复 7# perlearner


   
有一篇最新的Perlootut翻译
http://wiki.perlchina.org/index.php?title=Perlootut

如果发现翻译的不好，和我联系吧
我正好需要点反馈

perlearner

回复 8# redicaps


    感谢楼上老师，我在研究一下。有问题请您不吝赐教~