Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

What is "stringification" in Perl?

Tags:

perl

In the documentation for the CPAN module DateTime I found the following:

Once you set the formatter, the overloaded stringification method will use the formatter.

It seems there is some Perl concept called "stringification" that I somehow missed. Googling has not clarified it much. What is this "stringification"?

like image 379
JoelFan Avatar asked Mar 07 '11 00:03

JoelFan


2 Answers

"stringification" happens any time that perl needs to convert a value into a string. This could be to print it, to concatenate it with another string, to apply a regex to it, or to use any of the other string manipulation functions in Perl.

say $obj; say "object is: $obj"; if ($obj =~ /xyz/) {...} say join ', ' => $obj, $obj2, $obj3; if (length $obj > 10) {...} $hash{$obj}++; ... 

Normally, objects will stringify to something like Some::Package=HASH(0x467fbc) where perl is printing the package it is blessed into, and the type and address of the reference.

Some modules choose to override this behavior. In Perl, this is done with the overload pragma. Here is an example of an object that when stringified produces its sum:

{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' 

There are several other ifications that overload lets you define:

'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/)` 

Objects can even behave as different types:

'${}'   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;` 
like image 127
Eric Strom Avatar answered Sep 19 '22 13:09

Eric Strom


Stringification methods are called when an object is used in a context where a string is expected. The method describes how to represent the object as a string. So for instance, if you say print object; then since print is expecting a string, it's actually passing the result of the stringify method to print.

like image 32
J. Taylor Avatar answered Sep 21 '22 13:09

J. Taylor