Re^2: use of eval and Data::Dumper


Syntactic Confectionery Delight
	PerlMonks

Re^2: use of eval and Data::Dumper

by Anonymous Monk

on Sep 27, 2008 at 16:04 UTC ( [id://714031]=note: print w/replies, xml )

Need Help??

in reply to Re: use of eval and Data::Dumper
in thread use of eval and Data::Dumper

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);
[download]

Comment on Re^2: use of eval and Data::Dumper Download Code

Replies are listed 'Best First'.

Re^3: use of eval and Data::Dumper
by ikegami (Patriarch) on Sep 27, 2008 at 19:00 UTC

#!/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));
}
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://714031]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others musing on the Monastery: (7)

As of 2024-04-23 11:41 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found