On 6/14/07, Ray <[EMAIL PROTECTED]> wrote:
On Jun 14, 6:26 am, [EMAIL PROTECTED] (Chas Owens) wrote:
>
> However, I bet you want to iterator over all of the contents of the
> RejectRecord key like this
>
> my $max = @{$ref->{RejectRecord}};
> for my $i (1 .. $max) {
> print "record $i of $max failed because
> $ref->{RejectRecord}[$i-1]{Reason}\n";
Yes... This is exactly what I would like to do. Thanks so much Chas!
Ray
Please note that you only need $max and $i if you care about the
index. You can also say
for my $rec (@{$ref->{RejectRecord}}) {
print "failed because $rec->{Reason}";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/