Re^5: HASH keys preserve class ?

[BrowserUk]

It's certainly possible to reverse the stringyfication of references.

#! perl -slw
use strict;
use Data::Dumper;
use Devel::Pointer;


my @a = 1.. 10;
my %b = 'a'..'z';
my $c = \ 'A readonly scalar';
my $d = 'a scalar';
my %hash;
$hash{ $_ } = 1 for \( @a, %b, $c, $d );

for ( keys %hash ) {
    m[([^(]+)\(([^)]+)\)]
    and   $1 eq 'HASH'  ? print( Dumper unsmash_hv( oct( $2 ) ) )
        : $1 eq 'ARRAY' ? print( Dumper unsmash_av( oct( $2 ) ) )
        : $1 eq 'REF'   ? print( ${ unsmash_sv( oct( $2 )) } )
        : $1 eq 'SCALAR'? print( unsmash_sv( oct( $2 ) ) )
        : print "Unknown type '$1'";
}
__END__
C:\test>junk9
A readonly scalar
$VAR1 = [
          1,
          2,
          3,
          4,
          5,
          6,
          7,
          8,
          9,
          10
        ];

a scalar
$VAR1 = {
          'w' => 'x',
          'e' => 'f',
          'a' => 'b',
          'm' => 'n',
          's' => 't',
          'y' => 'z',
          'u' => 'v',
          'c' => 'd',
          'k' => 'l',
          'q' => 'r',
          'g' => 'h',
          'i' => 'j',
          'o' => 'p'
        };