Perl 面对对象的案例理解

yiwi

　　晚上仔细的推敲了下大骆驼的案例，由于有段时间没继续看下去了，导致有些地方忘记了。
　　今天仔细的翻了下面对对象那块，说实话，认真看，用心看的话，就能看明白它写神码。
　　看完前面一堆的理论，发现一个特点，它简单轻便的解释了OOP是啥玩意，跟着上CU搜了
　　些案例，发出一段来，并加上注释，希望全世界都能看懂。。。



#!/usr/bin/perl -w
package person;
use strict;
sub new {
#创建一个散列，用来存放数据。
my $self = {};
#获取数据并放入散列中
$self->{"name"} = shift();
$self->{"sex"} = shift();
#引用当前类的变量，并进行绑定
bless $self;
return $self;
}
1;
其实问题最多就是这个1;
一旦忘记了就会有各种错误。
　　上面的是具体的创建代码，接着给的是使用代码。这个就不需要多说了，看都能看得懂～



#!/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();