«stringification» происходит всякий раз, когда perl необходимо преобразовать значение в строку.Это может быть его печать, конкатенация с другой строкой, применение к ней регулярного выражения или использование любых других функций манипуляции со строками в Perl.
say $obj;
say "object is: $obj";
if ($obj =~ /xyz/) {...}
say join ', ' => $obj, $obj2, $obj3;
if (length $obj > 10) {...}
$hash{$obj}++;
...
Обычно объекты преобразуются в нечтокак Some::Package=HASH(0x467fbc)
, где perl печатает пакет, в который он был помещен, а также тип и адрес ссылки.
Некоторые модули предпочитают переопределять это поведение.В Perl это делается с помощью прагмы overload .Вот пример объекта, который при строковом преобразовании выдает свою сумму:
{package Sum;
use List::Util ();
sub new {my $class = shift; bless [@_] => $class}
use overload fallback => 1,
'""' => sub {List::Util::sum @{$_[0]}};
sub add {push @{$_[0]}, @_[1 .. $#_]}
}
my $sum = Sum->new(1 .. 10);
say ref $sum; # prints 'Sum'
say $sum; # prints '55'
$sum->add(100, 1000);
say $sum; # prints '1155'
Есть несколько других признаков, которые overload
позволяет вам определить:
'bool' Boolification The value in boolean context `if ($obj) {...}`
'""' Stringification The value in string context `say $obj; length $obj`
'0+' Numification The value in numeric context `say $obj + 1;`
'qr' Regexification The value when used as a regex `if ($str =~ /$obj/)`
Объекты могут вести себя какразные типы:
'${}' Scalarification The value as a scalar ref `say $$obj`
'@{}' Arrayification The value as an array ref `say for @$obj;`
'%{}' Hashification The value as a hash ref `say for keys %$obj;`
'&{}' Codeification The value as a code ref `say $obj->(1, 2, 3);`
'*{}' Globification The value as a glob ref `say *$obj;`