Perl oop研究

概述发现有个蛋疼的事情，还是没了解透。记录下已经研究出来的。 package Person; use strict; sub new{ my $self = {}; $self->{name} =undef; $self->{age}=undef; bless($self); return $self; } sub name{ my $self=shift; if(@_){$self->{name}=

发现有个蛋疼的事情，还是没了解透。记录下已经研究出来的。

package Person; use strict; sub new{ my $self = {}; $self->{name} =undef; $self->{age}=undef; bless($self); return $self; } sub name{ my $self=shift; if(@_){$self->{name}=shift}; return $self->{name}; } sub age{ my $self=shift; if(@_){$self->{age}=shift}; return $self->{age}; } 1;

#!/usr/bin/perluse Person; $tom=Person->new(); print $tom->name('smart,Tom'); print $tom->age(11);

总结

以上是内存溢出为你收集整理的Perl oop研究全部内容，希望文章能够帮你解决Perl oop研究所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。