in reply to Re: descending a tree of hash references
in thread descending a tree of hash references

sub make_eval { 
    my ($path) = shift; 
    my $string = "\$hashref->"; 
    $string .= "{$_}" for @$path; 
    return $string; 
}

[download]
Dangerous and broken when $_ contains anything unusual, and slower than hell unneccessarily even when it doesn't. Please don't use this code for anything.

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
Re: •Re: Re: descending a tree of hash references
by tachyon (Chancellor) on Feb 20, 2002 at 00:02 UTC

    You gotta love eval :0) 

    my $path = [ 'stuff', 'hierarchy', 'album', 'Oops}=do{warn"JaPh!"}# <-
+ run any arbitrary code' ];

    [download]

    cheers

    tachyon

    s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]

In Section Seekers of Perl Wisdom