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..name = "foo"
object.prop.subprop..name = "bar"
obj.prop. = "blah"
obj.prop. = 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.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
| & || & |
| < || < |
| > || > |
| [ || [ |
| ] || ] ||