Re: A hash slice but not..

Wouldn't you know it.. 10minutes after I send this, I remember eval! DOH! Following is what I've now come up with. Maybe someone has a better solution though.

#!/app/perl5.005/bin/perl
use strict;
use Data::Dumper;

sub add2hash {
  my($hash,$value,@tree)=@_;

  my $tree='$hash->{'.join('}{',@tree)."}=$value";
  eval $tree;
}

my(%tree);
add2hash(\%tree,1,('a'..'c'));
add2hash(\%tree,2,('a','b','d'));
print Dumper(\%tree);
[download]

Regards,
Shawn M Ferris
Oracle DBA

Comment on Re: A hash slice but not.. Download Code

Replies are listed 'Best First'.
Re: Re: A hash slice but not.. by merlyn (Sage) on Feb 15, 2001 at 00:59 UTC
No. We've gone through this already here before. And before, I also said that this eval solution fails because you end up compiling code repeatedly, and you could get very bad results if the data contains certain strings. Do not use eval-string. Ever. Or at least until you understand all the drawbacks. -- Randal L. Schwartz, Perl hacker	[reply]
Re: Re: A hash slice but not.. by extremely (Priest) on Feb 15, 2001 at 00:40 UTC
Change the `my $tree='$hash->{'.join('}{',@tree)."}=$value";` line to `my $tree='$hash->{'.join('}{',@tree).'}=$value';` or you will be REALLY unhappy the first time you send a string through... You don't want `$value` to be interpreted until the eval. Update: Nevermind, repeat after me kids, "eval is a four letter word". =) -- $you = new YOU; honk() if $you->love(perl)	[reply] [d/l] [select]