Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: How to get a reference from an eval() string?

by exilepanda (Friar)
on Sep 06, 2016 at 15:49 UTC ( [id://1171256]=note: print w/replies, xml ) Need Help??


in reply to Re: How to get a reference from an eval() string?
in thread How to get a reference from an eval() string?

Where are the strings you're putting into eval coming from...

It's from another program's exported plain text data in a file, and what's inside is a list of flatten object attributes and their value(~400 lines), which looks like:

object.prop.subprop.[0].name = "foo" object.prop.subprop.[1].name = "bar" obj.prop.[0] = "blah" obj.prop.[1] = 1000 ... ...
The vendor of that program exported this for me to do my part with perl implementation. And then my script will rewrite this text file, and the program will import the text file back.

I considered about the security issue, anyway the read part seem clean enough for me, that's why I use eval. Although my implementation do deal with user input, but since my data are constrained to use /^[\w\d\., ]+$/i only, so the write back data should be clean as well... unless it's not;).

I just read into Data::Diver and found that my $ref= DiveRef( $root, qw( top 9 new sub ) ); would be useful for me, so Thanks a lot!! Only I thought that would be some build in perl func or syntactical trick can do the job. Seem there should be no simple direct way to do that now.

Replies are listed 'Best First'.
Re^3: How to get a reference from an eval() string?
by haukex (Archbishop) on Sep 07, 2016 at 12:43 UTC

    Hi exilepanda,

    Only I thought that would be some build in perl func or syntactical trick can do the job. Seem there should be no simple direct way to do that now.

    Well sure there is :-)

    my $data = {}; while (<DATA>) { chomp; my @fields = split /\s*[=\.]\s*/; build( $data, \@fields, pop @fields ); } sub build { my ($ref, $path, $val) = @_; return $val unless @$path; my $el = shift @$path; if ($el=~/^\[(\d+)\]$/) { $ref->[$1] = build( $ref->[$1], $path, $val ) } else { $ref->{$el} = build( $ref->{$el}, $path, $val ) } return $ref; } __DATA__ object.prop.subprop.[0].name = foo object.prop.subprop.[1].name = bar obj.prop.[0] = blah obj.prop.[1] = 1000

    $data then looks like so:

    { obj => { prop => ["blah", 1000] }, object => { prop => { subprop => [{ name => "foo" }, { name => "bar" + }] } }, }

    And then to walk the data structure:

    sub dive { my ($ref,@path) = @_; return $ref unless @path; my $el = shift @path; if ($el=~/^\[(\d+)\]$/) { return dive( $ref->[$1], @path ) } else { return dive( $ref->{$el}, @path ) } } print dive( $data, qw/ obj prop [0] / ), "\n"; # prints "blah" print dive( $data, qw/ object prop subprop [1] name / ), "\n"; # prints "bar"

    Hope this helps,
    -- Hauke D

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (4)
As of 2024-03-29 08:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found