Hello,
I'm working on settup a hash something like this:
my $catid = 'A'; my(%conf);
$conf{cat} = {
A => (
["15.00","Three months(90days)","90"],
["30.00","Six months(180 days)","180"],
["45.00","Nine months(270 days)","270"],
["60.00","Twelve months(365 days)","365"]
),
B => (
["20.00","Three months(90days)","90"],
["40.00","Six months(180 days)","180"],
["50.00","Nine months(270 days)","270"],
["70.00","Twelve months(365 days)","365"]
)
};print header();
for (my $i=0; $i<@{$conf{cat}->{$catid}}; $i++) {
print qq~CatPrice: $conf{cat}->{$catid}[0] CatDays:
$conf{cat}->{$catid}[2]<BR>~;
}But all I'm getting is the first element array in key 'A'
"15.00 90" instead of all 4 array in the key in the loop... what I'm I doing wrong, or is there away doing this better ??
TIA -- Mike(mickalo)Blezien =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Thunder Rain Internet Publishing Providing Internet Solutions that work! =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
