http://qs321.pair.com?node_id=814482

clintonm9 has asked for the wisdom of the Perl Monks concerning the following question:

I am using Data Dumper to send a perl hash ref from one server to another. Works great but for one weird thing. When I setup some hash refs i see something like this:
$VAR1 = { 'test1' => [ { 'temp' => '123' } ], 'test2' => [ $VAR1->{'test1'}[0] ] };
Where you see VAR1 I would like to find a way for this to just show the correct data instead of the reference. The code might help you understand more seeing the output.
#!/usr/bin/perl use strict; use Data::Dumper; my ($hash_ref, $var1); print "This is my test of Data Dummper\n"; ## Setup Data $var1->{temp} = "123"; push (@{$hash_ref->{test1}}, $var1); push (@{$hash_ref->{test2}}, $var1); print Dumper($hash_ref); ## print new data my $VAR1; eval Dumper($hash_ref); print Dumper($VAR1); exit;
Full output
$VAR1 = { 'test1' => [ { 'temp' => '123' } ], 'test2' => [ $VAR1->{'test1'}[0] ] }; $VAR1 = { 'test1' => [ { 'temp' => '123' } ], 'test2' => [ undef ] };
As you can see test2 is undef instead of saying temp => '123'. Is there a way to fix this? thanks