Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: use of eval and Data::Dumper

by broomduster (Priest)
on Sep 27, 2008 at 15:32 UTC ( #714027=note: print w/ replies, xml ) Need Help??


in reply to use of eval and Data::Dumper

As an alternative to eval'ing your stored HoH, have a look at Storable (part of the Perl distribution).


Comment on Re: use of eval and Data::Dumper
Download Code
Re^2: use of eval and Data::Dumper
by Anonymous Monk on Sep 27, 2008 at 16:04 UTC
    Thanks broomduster, Storable might be better.

    But I did find the solution:
    #!/usr/bin/perl -w use strict; use Data::Dumper; my @ray=qw(bob me other); my %hash; foreach (@ray) { %{$hash{$_}}=("one", "$_+1", "two", "$_+2", "three", "$_+3") } my $ref=\%hash; $Data::Dumper::Terse=1; # remove "$VAR" in output my $r2=Dumper($ref); my $answer = eval $r2; print Dumper($answer);
      No, you want Purity=1, and Terse=1 is a step away from what you want. Better:
      #!/usr/bin/perl -w use strict; use Data::Dumper; my $dump; { # Writer # ----- my $hash = {}; my @ray=qw(bob me other); foreach (@ray) { %{$hash->{$_}} = ( one => $_+1, two => $_+2, three => $_+3, ); } print(Dumper($hash)); $dump = Data::Dumper->new([ $hash ], [qw( $hash )]) ->Purity(1) ->Dump(); } { # Reader # ------ my $hash; eval "$dump; 1" or die $@; print(Dumper($hash)); }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://714027]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2014-10-25 23:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (149 votes), past polls