面向对象编程 示例 日期默认设置、更改、显示

--包(类)源码

#Date.pm

package Date;


sub new{

my $date={

the_year=>2015,

the_mon=>10,

the_day=>1,

};

bless($date);

return $date;

}


sub year{

my $self=shift;

$self->{the_year}=shift if(@_);

return $self->{the_year};

}

sub mon{

my $self=shift;

$self->{the_mon}=shift if(@_);

return $self->{the_mon};

}

sub day{

my $self=shift;

$self->{the_day}=shift if(@_);

return $self->{the_day};

}


sub setDate{

if(@_==4){

my $self=shift;

$self->mon($_[0]);

$self->day($_[1]);

$self->year($_[2]);

}

else{

print "Error happend\n";

}

}


sub disp{

my $self=shift;

print $self->mon."-".$self->day."-".$self->year."\n";


}

return 1;

---应用代码

面向对象编程 示例 日期默认设置、更改、显示

--结果

面向对象编程 示例 日期默认设置、更改、显示





本文转自 tiger506 51CTO博客,原文链接:http://blog.51cto.com/tiger506/1699708,如需转载请自行联系原作者

上一篇:适配最新iPhone9、iPhoneXs提醒事项备忘录APP


下一篇:【物联网智能网关-07】PCF8591 AD转换模块I2C通信实现