如何在 Perl 对象中定义预增量/后增量行为？

Question

日期::简单 对象显示此行为，其中 $date++ 返回第二天的日期。

Date::Simple 对象是不可变的。将 $date1 分配给 $date2 后，对 $date1 的任何更改都不会影响 $date2。例如，这意味着没有像 set_year 操作这样的操作，并且 $date++ 为 $date 分配了一个新对象。

如何自定义对象的前/后增量行为，以便 ++$object 或 $object-- 执行特定操作？

我浏览过perlboot，perltoot, perltooc和 perlbot，但我没有看到任何示例说明如何做到这一点。

Answer 1

您需要重载。

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

Answer 2

如果您查找 perlfaq7 你会发现答案是使用重载< /a> pragma，尽管他们可能可以给常见问题解答问题一个更好的名称（在我看来）。

package SomeThing;

use overload
  '+' => \&myadd,
  '-' => \&mysub;

基本上（假设 $a 是 SomeThing 类的对象，而 $b 不是），上面的代码会重载 $a + $b 为 $a->myadd($b, 0) 且 $b + $a 为 $a->myadd($b, 0) myadd($b, 1) （也就是说，第三个参数是一个布尔值，表示“该运算符的参数是否翻转”并且保留第一个参数是 self 语法），对于 < 也是如此代码>-和<代码>mysub。

阅读文档以获得完整的解释。