Как определить поведение до / после приращения в объектах Perl?

Date::Simple объекты отображают это поведение, где $date++ возвращает дату следующего дня.

Date:: Простые объекты неизменны. После назначения $date1 для $date2, никакие изменения в $date1 не могут повлиять на $date2. Это означает, например, что нет ничего похожего на операцию set_year, и $date++ назначает новый объект в $ date.

Как можно индивидуально определить до / постинкрементное поведение объекта, чтобы ++$object или же $object-- выполняет определенное действие?

Я просмотрел perlboot, perltoot, perltooc и perlbot, но я не вижу примеров, показывающих, как это можно сделать.

2 ответа

Решение

Ты хочешь 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

Если вы посмотрите на perlfaq7, то обнаружите, что ответом является использование прагмы перегрузки, хотя они, вероятно, могли бы дать вопросу FAQ лучшее имя (по моему мнению).

package SomeThing;

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

В основном (при условии $a является объектом SomeThing класс и $b не), выше бы перегрузил $a + $b быть $a->myadd($b, 0) а также $b + $a в $a->myadd($b, 1) (то есть третий аргумент является логическим значением, означающим, что "аргументы этого оператора перевернуты" и синтаксис "первый аргумент сам" сохраняется), и то же самое для - а также mysub,

Прочитайте документацию для полного объяснения.

Другие вопросы по тегам