Как определить поведение до / после приращения в объектах 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
,
Прочитайте документацию для полного объяснения.