Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: eval a reference to a my hash

by theorbtwo (Prior)
on Apr 05, 2006 at 12:13 UTC ( #541361=note: print w/replies, xml ) Need Help??

in reply to eval a reference to a my hash

I don't understand why this doesn't work, but I do have a suggestion about how to fix it. Instead of using seperate hashes with different names, have a hash of hashrefs. Then you don't need an eval STRING or symbolic references to make it work.

Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).

Replies are listed 'Best First'.
Re^2: eval a reference to a my hash
by cdarke (Prior) on Apr 05, 2006 at 12:37 UTC
    Nice solution, I wanted to get rid of the eval anyway. Thanks!
    I would still love to know why the original doesn't work.

      By the time the eval STRING code runs, lexicals don't really have names anymore, so Perl can't look them up by name.

        And that explains why making them our variables fixes the problem. Many thanks (I'm using an extra hash now and got rid of the eval, but it is worth knowing).
      When you say the original doesn't work, what makes you think it isn't?

      It seems your simplified fragment is not demonstrating the problem, because:

      #!/usr/bin/perl -w + # Strict use strict; use warnings; + # Libraries use Carp; use Data::Dumper; + + my %drink; # other attribute hashes + set('larry', 'drink', 'Old Speckled Hen'); print $drink{'larry'}, "\n"; # print "Dump(\%drink) => [%s]\n", Dumper(\%drink); + + sub set { my ($key, $attr, $value) = @_; + my $hashref; eval "\$hashref = \\\%$attr"; + if ( !defined $hashref ) { carp 'Invalid attribute name'; } else { $hashref->{$key} = $value; } }
      is working for me:
      % Old Speckled Hen
      If that isn't what you're getting, please compare the above code fragment (based on what you provided in your post) to your actual code, and see if that helps locate the problem.

        It works because of the print statement. Take that out and it will fail. Thanks anyway.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2021-10-24 00:53 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (88 votes). Check out past polls.