perl 面向对象 笔记

简单的OOL
在Perl中方法有二种,
实例方法:用于特定对象的方法,实现执行某个功能.
类方法:用于整个类的方法
类的多态性:总是某个类型的特定对象选择最合适的行为的特性叫多态性
构造器: 类中生成对象实例的方法叫构造器

简单的讲perl的对象
对象只不过是一个引用….嗯,引用物
类就是包
方法就是子例程:方法和普通子例程的区别是,它们的包在什么时候被解析,子例程的包是程序开始运行之前,编译时就解析的.但方法是在调用时才解析

方法调用
方法是对象的核心,提供了一个抽象层,不是直接访问对象中的一块数据区,而是调用实例的方法.只是,不在是直接调用包中的子例程,而是调用一个类的方法.
调用者(invocant):对类来讲,调用者是包的名字,对实例方法来讲,调用者是指定对象的引用.换句话讲,调用者就是调用方法的那种东西,有的文章叫他为代理(agent)施动者(actor).
INVOCANT->METHOD(LIST)
在调用时先定位由INVOCANT和METHOD名字的类共同确定的子例程.然后调用这个子例程,并将INVOCANT传递给它作为第一个参数. 这时,如果INVOCANT是一个引用,我们就讲这是以实例方法调用的,但当它是一个包名字时,就看看成一个类方法.

构造对象:

package Critter;
sub spawn {
    my $self={}; #指向一个空的匿名散列
    bless $self, "Critter"; #给散列作成一个Critter对象
    return $self; #返回新生成的Critter
}
$pet = Critter->spawn; #创建

 

创建类:

方法一:

sub new {
my $invocant = shift; #类名称
my $class = ref($invocant) || $invocant; #判断是不是引用
my $self = { #对象属性
color => "bay",
legs => 4,
owner => undef,
@_, #剩下的参数(hash)变成属性,写在最后面有相同的参数时,正好可以磛盖以前的属性
};
return bless $self,$class; #new方法一般只return bless对象属性到所有方法
}



$stallion = Horse->new(color => "black"); #调用类

方法二:

use vars qw(@ISA); # 这一句用于 inheritance，也可以省略
sub new {
my ($class, $args) = @_;
my $self = bless {
'fname' => $first,
'lname' => $last,
'id' => $id,
'mother' => $mother,
'father' => $father,
}, $class;
return $self;
}
sub father {
my ($self, $args) = @_;
return $self->{'father'};
}
sub id { return shift->{'id'} }
1;

类继承

package Horse;
our @ISA = "Critter"; #当在Horse中调用没有时,就会到Critter中查找相关的方法.

继承例子：

PM file:

package M1;


sub new {
    my $class = shift;
    $class = ref($class) || $class;
    my $self = {
        "name" => "jophy",
        "race" => "unknown",
        "weight" => "",
        @_,
    };
    return bless $self, $class;
}


sub get_name {
    my $self = shift;
    return $self->{name};
}
1;


package M2;
our @ISA = qw/M1/; #继承package M1

sub get_race {
my $class = shift;
$class = ref($class) || $class;
my $self = {};
bless $self, $class;
my ($arg) = @_;


}
1;

perl script:

use pmfile; #pm文件名

my $oo = M2->new();
print $oo->get_name('12');