Perl的面向对象编程-构造函数

        之前一直在学习c++，c++给我的感觉就像正规军编程的绝对主力部队，严谨、高效一丝不苟，其语法虽然复杂但是都有章可循有法。因为喜欢linux的原因，学习了perl语言，perl语言给我的感觉就像雇佣军，从来不循规蹈矩，也从来不是主力，但是在解决特定问题上它就像一把屠龙刀，直切要害毫不留情。学习c++时很多问题比如类、对象等很抽象，可能你现在看懂了过几天就忘了，学习perl有助于理解c++面向对象编程的很多问题，因为用perl编程就像在和计算机说话其语法很容易理解，c++编程呢则像在签合同，大段大段的条条框框让人云里雾里。现在我们就从perl入手学习下面向对象编程。

1、什么是对象？

      有人要问了什么是对象，（当然不是你女朋友或老婆！！），相信各位在初学编程（当然我也是初学）时总是以为程序就像流水线从开始到结束然后输出成品。这样固然很不错，但是其灵活性大大降低。而面向对象编程则是你创造一个对象，这个对象有自己的数据（这些数据定义这个对象是什么），然后你给他创造各种各样的接口（接口则定于这个对象会干什么，有点像人的手脚的感觉）。构造了12个对象，ok你就可以用这12个对象组成球队去比赛，不知道这样的解释能不能理解。现在我们就构建一个person类来逐步拆解。

2、perl中的数据（见以下代码）

        #!/usr/bin/perl   

        use v5.22.3;

        package Person;

        my %field=("Person::name"=>"unknown","Person::sex"=>"unknown","Person::age"=>"unknown",

"Person::relationship_with_u"="unknown");

在这里强调下定义变量名称时采用包名：：变量名的方式，规范点的写法对你有好处。

my %field散列就是Person这个类中存储这个类属性的容器，通过定义这些属性我们可以知道这个类对象是个什么样的人，在上述代码中如果构造函数不提供参数则这个人姓名：未知，性别：未知，年龄：未知，和你的关系：未知（唔真是一个神秘的对象），下面我们就来构造我们的对象。

3、构造函数

     构造函数的作用就是真正把这个类变成你的对象，这里我们讲两个方法第一个普通方法，第二个采用闭包确保实现私有对象。

      （1）、普通构造函数：

sub new{

      my $class=shift;#构造函数有个隐含的参数在@_数组第一个位置，就是调用该类方法的类名称。在这里我们先将该名称存储到$class变量中。以后有用。

      my $class=ref($class)||$class; #这一句是可选项实现以构造好的对象为模板构造新的对象。

      my $self={%field,@_};  # 如果参数为空则$self采用默认的属性，你的对象一切未知，如果有参数则参数会存储在@_数组中，并覆盖%field的相关键/值对，你看这个perl的语法多么精炼。

      return bless $self,$class;  #最重要的将$self这个散列祝福到Person，有点像上帝给Person这个躯体注入（bless）灵魂的感觉。

}

这样我们就可以调用该构造函数构造你的对象了。

my $wife=Person::->new("Person::name"=>"YSQ","Person::sex"=>"female","Person::age"=>"25",)

"Person::relationship_with_u"="wife");诶嘿嘿，现在你就有了一个叫YSQ，性别女，年龄25岁的老婆了，你的对象来了，赶紧面向她编程吧。

      （2）使用闭包实现私有对象

既然你已经构造一个老婆，咳咳那你肯定希望她是私有的，普通的构造函数构造的对象可以任意修改你的对象属性，如果有bad boy把你老婆的Person::sex修改为man，我想你可能要注意你的ju hua了。废话不多说用闭包的方法保护你的老婆吧。

 sub new1{

         my $class=shift;

         $class=ref($class)||$class;

         my $data={%field,@_};

         my $self=sub{

                     my $key=shift;

                     ##这里可以插入相应的访问检查

                      if (@_) {$data->{$key}=shift;}

                      return $data->{$key};

                      };

          bless ($self,$class);

           return $self;

}

在这里我们的构造函数不再是返回一个匿名的散列了，而是返回一个闭包。

现在通过例子来讲解，同样通过my $wife=Person::->new1("Person::name"=>"YSQ","Person::sex"=>"female","Person::age"=>"25",

"Person::relationship_with_u"="wife");生成你的对象,但注意这里的$wife是一个闭包引用哦，什么意思呢，用普通构造函数构造的$wife可以用$wife{name}来直接读取并修改您$wife的属性，现在不行了$wife是一个闭包对象！是一个函数，它只能通过$wife->（"name","YSQ2"）的形式改变。 也就是说只有调用闭包函数才能读取我们$wife的内部属性。也就是相应的name接口方法。这里可能不太好理解我们把name具体化为一个方法。

for my $method(qw(name sex age relationship))

{

no strict "refs";

*$method=sub{

my $self=shift;

return $self->($method,@_);

};

}

我们把name做成一个闭包函数，这时name是一个接口，我们只能通过这个接口访问$wife的名字。$wife->name("YSQ2")等同于$wife->（"name","YSQ2"）。这一段比较难看懂，要先恶补下闭包的知识。