1、说明
本程序演示了在Perl中如何进行面向对象编程:演示程序包含两个文件:person.pl 和 person.pm,把 person.pl 和 person.pm 放在当前目录下,运行"perl person.pl"即可以看到结果。person.pm定义了名为person的类。person.pl中创建了person类的实例,并测试了person的成员方法。
2、person.pm的内容
#!/usr/bin/perl -w
package person;
use strict;
sub new {
my $class = shift();
print("CLASS = $class\n");
my $self = {};
$self->{"name"} = shift();
$self->{"sex"} = shift();
bless $self, $class;
return $self;
}
sub getName {
my ($self) = @_;
return $self->{"name"};
}
sub setName {
my ($self, $name) = @_;
$self->{"name"} = $name;
}
sub getSex {
my ($self) = @_;
return $self->{"sex"};
}
sub setSex {
my ($self, $sex) = @_;
$self->{"sex"} = $sex;
}
1;
注意new方法中的最后一行:
return $self;
是可以去掉的。
3、person.pl的内容
#!/usr/bin/perl -w
use strict;
use person;
sub main() {
my $tom = person->new("Tom", "male");
my $kiss = person->new("Kiss", "female");
my @persons = ($tom, $kiss);
for my $p (@persons) {
printf("NAME: %s\tSEX: %s\n", $p->getName(), $p->getSex());
} }
&main();
4、程序运行结果
CLASS = person
NAME: Tom SEX: male
NAME: Kiss SEX: female
5、当调用person->new("Tom", "male")时发生了哪些事情?
sub new { my $class = shift(); print("CLASS = $class\n"); my $self = {}; $self->{"name"} = shift(); $self->{"sex"} = shift(); bless $self, $class; return $self; }
- 当调用person->new("Tom", "male") 时,有3个参数被传递给person中的new函数,它们分别是: 类的名称"person"(这是一个隐含参数)、"Tom"、"male"。
- 语句my $class = shift(); 获得第一个参数
- 语句my $self = {}; 创建一个哈希表对象的引用
- 语句$self->{"name"} = shift(); 把传进来的第二个参数存入到哈希表中。
- 语句$self->{"sex"} = shift(); 把传进来的第三个参数存入到哈希表中。
- 语句bless $self, $class ,我把bless理解为"把类型信息和变量绑定" :
- $self是一个指针,在这里指向了一个哈希表对象的引用
- $class是一个字符串,在这里是person类的名字
- 在perl中,根据类的名字可以查找到这个类所有的成员方法和成员变量,因此类的名称就代表了类的类型信息!
- 所谓bless就是把 person类的类型信息 赋予 哈希表对象的引用
- 语句return $self; 则返回哈希表对象的引用