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

--包（类）源码

#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{

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

return $self->{the_mon};

sub day{

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

return $self->{the_day};

sub setDate{

if(@_==4){

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

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

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

else{

print "Error happend\n";

sub disp{

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

return 1;

---应用代码

<a href="http://s3.51cto.com/wyfs02/M01/74/02/wKiom1YMM1LRzy2bAAB-kq8eJBE204.jpg" target="_blank"></a>

--结果

<a href="http://s3.51cto.com/wyfs02/M01/73/FF/wKioL1YMM4mzdbvWAACSANGI6o8134.jpg" target="_blank"></a>

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