第十二章对象(上)

<pre name="code" class="html">第十二章对象(上):$ed=x1->new('lily','29') 当Perl 看到$ed->sum_var(99,5);  时,它会决定$ed属于哪个类(也就是在其中执行bless的）      在这里,它是x1.  Perl于是就会如下所示调用这个函数      x1::sum_var($ed) 换句话说,箭头左边的对象只是作为相应子程序的第一个参数。对象是一个数据结构,带有一些行为。 我们通常把这些行为成为对象的直接动作,适用于某一个特定对象的方法叫做实例方法适用于整个类的方法叫做类方法类里面那些生成 对象实例的方法叫构造方法一个类可以从父类中继承方法，父类也叫基类或者超级类12.2 Perl 的对象系统一个对象只不过是一个引用...恩，就是引用。因为引用令独立的标量代表大量的数据，所以我们不应该对把引用用于所有对象 感到奇怪一个类只是一个包一个包当作一个类——通过使用包的子过程来执行类的方12.3 方法调用Perl 总是会给 构成这个方法的子过程传递一个额外的初始化参数如果用一个类调用该方法，那个参数 将会是类的名字[root@wx03 test]# cat p1.pmpackage p1;use base qw(p2);use Data::Dumper;sub new {    my $self = {};    my $invocant = shift;     ##第一个参数类的名字my $class = ref($invocant) || $invocant;my ($name)=@_;          my $self = {             "name" =>$name                     };      bless $self, $class; # Use class name to bless() reference    print "111111111111111111\n";$str=Dumper($self);print "\$str is $str\n";    return $self;} 如果用一个对象调用方法，那个参数就是对象的引用。sub setBeanType{ my ($self, $name) = @_;##//传进来的第一个参数是类似c++的self指针，第二个才是真正的参数 $self->{'Bean'} = $name;对于类方法而言，调用者是包的名字。对于一个实例方法，调用者是 调用者是一个声明对象的引用12.3.1 使用箭头操作符的方法调用INVOCANT->METHOD(LIST)INVOCANT->METHOD（请不要把->和=>混淆，“双管”箭头起 神奇逗号的作用。)[root@wx03 test]# cat t5.pl %hash=(a,1,b,2,c,3);print %hash;print "\n";%hash=(a=>1,b=>2,c=>3);print %hash;print "\n";[root@wx03 test]# perl t5.pl b2c3a1b2c3a1比如，使用类方法 summon 的构造一个类，然后在生成的对象上调用实例方法 speak，你 可以这么说：$mage = Wizard->summon("Gandalf"); # 类方法$mage->speak("friend"); # 实例方法12.3.2 使用间接对象的方法调用12.3.4 引用包的类12.4 构造对象所有对象都是引用，但不是所有引用都是对象。把一个引用和一个包名字标记起来 的动作成为bless可以把bless 看作把一个音乐转换成一个对象bless 函数接收一个或者两个参数。第一个参数是一个引用，而第二个是要把引用赐福 （bless）成的包。如果忽略第二个参数，则使用当前包。$obj = { }; # 把引用放到一个匿名散列bless($obj); # Bless 散列到当前包bless($obj, "Critter"); # Bless 散列到类 Critter这里我们使用了一个指向匿名散列的引用因为一个类就是一个包$obj = { }; # 把引用放到一个匿名散列bless($obj); # Bless 散列到当前包bless($obj, "Critter"); # Bless 散列到类 Critter。$obj = { }; 这里我们使用了一个指向匿名散列的引用，也是人们通常拿来做他们的对象的数据结构的 东西如果你在 使用一个类，你要做的甚至更少，因为类的作者会把 bless 隐藏在一个叫构造器的方法 里，它创建和返回类的实例。package Critter;sub spawn {my $self = {}; # 指向一个空的匿名散列bless $self, "Critter"; # 把那个散列作成一个 Critter 对象return $self; # 返回新生成的 Critter}有了那个定义，下面就是我们如何创建一个 Critter 对象了：$pet = Critter->spawn;12.4.1 可继承构造器：和所有方法一样，构造器只是一个子过程，但是我们不把它看作一个子过程。在这个例子 里，我们总是把它当作一个方法来调用——一个类方法，因为调用者是一个包名字。类方法调用者是字符串 类名字对象方法调用者是引用  是对象12.4.2 初始器大多数对象维护的信息是由对象的方法间接操作的。到目前为止我们的所有构造器都创建了 空散列，但是我们没有理由让它们这么空着。比如，我们可以让构造器接受额外的参数， 并且把它们当作键字/数值对。[root@wx03 test]# cat test.pm package test;sub new {   my $invocant = shift;my $class = ref($invocant) || $invocant;my $self = {color => "bay",legs => 4,owner => undef,@_, # 覆盖以前的属性};return bless $self, $class;#return  $self;};sub clone {my $model = shift;print %$model;print "\n";my $hash=%$model;$hash{name}="bmw";my $self = $model->new(%hash, @_);return $self; # 前面被 ->new 赐福过了};1;[root@wx03 test]# cat t11.pl unshift(@INC,"/root/test"); use test;$ua=test->new();use Data::Dumper;$str=Dumper($ua);print "\$str is $str\n";$var1=$ua->clone();$str=Dumper($var1);print "\$str is $str\n";[root@wx03 test]# perl t11.pl $str is $VAR1 = bless( {                 'color' => 'bay',                 'owner' => undef,                 'legs' => 4               }, 'test' );colorbayownerlegs4$str is $VAR1 = bless( {                 'color' => 'bay',                 'owner' => undef,                 'legs' => 4,                 'name' => 'bmw'               }, 'test' );12.5 类继承