perl - 在 perl 中重载运算符

Question

假设我有一个 blessed 引用/对象 $a 和 $b，每个都在内部存储为 hashref 并具有:

$a->{_x}
$b->{_x}

是否可以重载算术运算，所以我什么时候会这样做:

my $c = $a + $b;

我将有一个有福的引用 $c，其中 $c->{_x} 等于 $a->{_x} + $b-> {_x}??

Answer 1

当然。只需将您常用的构造函数用于 + 的重载子中所需类的新对象，并将其值设置为该总和(或您想要的任何其他值)。

假设你有 new 构造函数，它以初始值作为参数，那将是这样的:

sub plus {
   my $self = shift;
   my $right = (shift or 0);
   return MySuperNumberObject->new($self->{_x} + $right);
};

use overload '+' => \+