Perl 面對對象的案例理解

晚上仔細的推敲了下大駱駝的案例，由于有段時間沒繼續看下去了，導致有些地方忘記了。

今天仔細的翻了下面對對象那塊，說實話，認真看，用心看的話，就能看明白它寫神碼。

看完前面一堆的理論，發現一個特點，它簡單輕便的解釋了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();

?