Date::Simple
对象显示此行为,其中$date返回第二天的日期.
Date::Simple objects are immutable. After assigning $date1 to $date2,no change to $date1 can affect $date2. This means,for example,that there is nothing like a set_year operation,and $date++ assigns a new object to $date.
如何自定义对象的前/后增量行为,例如$object或$object–执行特定操作?
我已经浏览了perlboot,perltoot,perltooc和perlbot,但是我没有看到任何可以做到这一点的例子.
解决方法
你要
overload
.
package Number; use overload '0+' => \&as_number,'++' => \&incr,; sub new { my ($class,$num) = @_; return bless \$num => $class; } sub as_number { my ($self) = @_; return $$self; } sub incr { my ($self) = @_; $_[0] = Number->new($self->as_number + 1); # note the modification of $_[0] return; } package main; my $num = Number->new(5); print $num . "\n"; # 5 print $num++ . "\n"; # 5 print ++$num . "\n"; # 7
原文地址:https://www.jb51.cc/Perl/172708.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。