Perl 面对对象的案例理解

发布时间：2020-12-16 00:01:39 所属栏目：大数据来源：网络整理

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

晚上仔细的推敲了下大骆驼的案例，由于有段时间没继续看下去了，导致有些地方忘记了。

今天仔细的翻了下面对对象那块，说实话，认真看，用心看的话，就能看明白它写神码。

看完前面一堆的理论，发现一个特点，它简单轻便的解释了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: %stSEX: %sn",$p->getName(),$p->getSex()); } } &main();

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!