Re: retrieve list values...

So you've got the array in $VAR1 (an array reference)... you want to iterate over all the records. Note that each record exists in the array as a hash reference. So:

for my $rec_hr ( @$VAR1 )
{
    ...
}
[download]

Next is to turn each record hashref into an array of items in the order (ID, TEXT, VALUE). You can use a hash slice to do this.

for my $rec_hr ( @$VAR1 )
{
    my @rec = @{$rec_hr}{'ID','TEXT','VALUE'};
}
[download]

From there, you can do whatever you want. You could, for example, push these array-type records onto a new array, or print them:

for my $rec_hr ( @$VAR1 )
{
    my @rec = @{$rec_hr}{'ID','TEXT','VALUE'};
    push @array_records, \@rec;
    print "(@rec)\n";
}
[download]

Comment on Re: retrieve list values... Select or Download Code

Replies are listed 'Best First'.
Re^2: retrieve list values... by danidin (Novice) on Jul 18, 2005 at 13:58 UTC
the variable that I'm printing is defined like this : my @tss = $tool->{param}->{'TARGET_SERVICES_SINGLE'}; when I print it I get array reference. the code that you suggested didn't work :-( what am I doing wrong !?	[reply]
Re^3: retrieve list values... by jdporter (Paladin) on Jul 18, 2005 at 14:14 UTC
If you did anything wrong, it was to neglect to say that you've got a plain array that you're printing out the variable using Data::Dumper. :-) To account for this, simply take the code I posted before and replace @$VAR1 with @tss: : `for my $rec_hr ( @tss ) { my @rec = @{$rec_hr}{'ID','TEXT','VALUE'}; push @array_records, \@rec; print "(@rec)\n"; }` [download] I might also suggest that you read up on references, e.g. in perlreftut.	[reply] [d/l]