Re^4: How to create loop in perl dynamically

Thank you. That was helpful.
This is requirement.
1. I have data in DB
ex: of data in DB.

Student|Subject|Marks
aaa|eur|100
aaa|usd|90
aaa|eur|101
aaa|usd|80
aaa|eur|90
---------
bbb|usd|80
bbb|usd|100
[download]

.......
So Mapping goes like below:

aaa->eur->100 
aaa->eur->101
aaa->eur->90

aaa->usd->90 
aaa->usd->80
[download]

Output will be : 1.If level=2

aaa,eur,sum(100,101,90)
aaa,usd,sum(90,80)
[download]

so on..

2.If level is 3, we have more detailed level

aaa,eur,100,sum(gg)
aaa,eur,100,sum(hh)
aaa,eur,101,sum(gf)
aaa,eur,101,sum(s)
aaa,eur,90,sum(dd)
aaa,eur,90,sum(sf)
aaa,usd,90,sum(eq)
[download]

...
Here its the users choice if u want to print at 2 level or 3 level or more..
If level is 4 then we go into detailed level.

Hope this requirement helps
I want to dynamically store the values in arrays and iterate through these arrays and get this values.

Comment on Re^4: How to create loop in perl dynamically Select or Download Code

Replies are listed 'Best First'.
Re^5: How to create loop in perl dynamically by djerius (Beadle) on Sep 26, 2012 at 20:01 UTC
I think you're using the wrong data structure for your data; use hashes, not arrays. Read your data in, split it into fields, then construct nested data structures to hold your data. The Perl Data Structures Cookbook (perldsc) has all of the information you need. You can then either directly extract the information at the requested level or use Data::Path or Data::DPath.	[reply]