http://www.perlmonks.org?node_id=604499

mc_pandey has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I am new to perl ..can someone please help me in handling keyed list in perl?

I have a keyed list in a file f1.chart as-

{chart {{1 {{title title_1} {xlable X-lab} {ylable Y-lab} {description + desc1} {type line} {series {{1 {{x_data {1 2 3 4 5}} {y_data {20 90 +60 50 30}}}}}}}}}}

Now i want to get the value of x_data (1 2 3 4 5) and y_data (20 90 60 50 30) in a perl script.

How do i get that?

20070313 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips