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}=shift}; return $self->{name}; } sub age{ my $self=shift; if(@_){$self->{age}=shift}; return $self->{age}; } 1;
#!/usr/bin/perl use Person; $tom=Person->new(); print $tom->name('smart,Tom'); print $tom->age(11);
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步