"print $variable" gives me REF(0x8fdc2d4) instead of HASH(0x....)

[Sébastien Cottalorda]

Hi all,

I'm trying to add Hash::Flatten functionality to the IPC::Shareable
module.

In IPC::Shareable, I've that function:
sub _freeze {
my $s = shift;
my $water = shift;
....
my $ice = freeze $water;
....
$s->shmwrite($ice);
}

I'm trying to add Hash::Flatten like this:
sub _freeze {
my $s = shift;
my $water = shift;
....
$water = flatten($water, { HashDelimiter => '->', ArrayDelimiter
=> '=>', });
my $ice = freeze $water;
....
$s->shmwrite($ice);
}

unfortunately, sometimes, i obtains:
"Not a SCALAR reference at /home/workspace/panneau/modules/IPC/
Shareable.pm line 717."
and the module crashes.
When I print $water just before flatten(...), I get REF(0x8fdc2d4)
instead of HASH(0x...)

With the Data:umper module, I obtains:
$water = \{
'key' => 'value',
'another_key => {
'key1' => 'value1',
....
},
}

How can I transform $water from REF(0x....) to HASH(0x....)

Thanks in advance for any kind of help.

Sebastien

 

[smallpond]

Hi all,

I'm trying to add Hash::Flatten functionality to the IPC::Shareable
module.

In IPC::Shareable, I've that function:
sub _freeze {
    my $s  = shift;
    my $water = shift;
...
    my $ice = freeze $water;
...
    $s->shmwrite($ice);

}

I'm trying to add Hash::Flatten like this:
sub _freeze {
    my $s  = shift;
    my $water = shift;
...
    $water = flatten($water, { HashDelimiter => '->', ArrayDelimiter
=> '=>', });
    my $ice = freeze $water;
...
    $s->shmwrite($ice);

}

unfortunately, sometimes, i obtains:
"Not a SCALAR reference at /home/workspace/panneau/modules/IPC/
Shareable.pm line 717."
and the module crashes.
When I print $water just before flatten(...), I get REF(0x8fdc2d4)
instead of HASH(0x...)

With the Data:umper module, I obtains:
$water = \{
    'key' => 'value',
    'another_key => {
        'key1' => 'value1',
        ....
    },

}

How can I transform $water from REF(0x....) to HASH(0x....)

Thanks in advance for any kind of help.

Sebastien

Is the ref to a ref to a hash? ie. $water = \\%h?
$rapids = ref $water eq "REF" ? %$water : $water;

 

[Sébastien Cottalorda]

Is the ref to a ref to a hash?  ie. $water = \\%h?
$rapids = ref $water eq "REF" ? %$water : $water;

Sorry, I obtain :
Not a HASH reference at /blah_blah../Shareable.pm line 681
It seems not to be only a ref to a ref to a hash.
I do not explain how Data:umper manage to dump it like this:
$VAR=\{ .... }
I try to look into the Dumper package but I lost me ....

 

[Peter Makholm]

I do not explain how Data:umper manage to dump it like this:
$VAR=\{ .... }

Because that in a correct syntax for making a reference to a
hash-reference. See 'perldoc perlref'.

The outer ref is made by Rule 1: "By using the backslash operator on a
variable, subroutine, or value.". Here it is used on a value, which
happens to be a reference (byt rule 3) itself.

So Data:umper dumps it correct.

//Makholm