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

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

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

?

轉載于:https://www.cnblogs.com/xiaoCon/archive/2013/03/24/2979754.html

總結

以上是生活随笔為你收集整理的Perl 面对对象的案例理解的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。