I'm trying to debug a problem in a Perl script that retrieves records
from an Oracle database and writes those records to a flat file. I'm
retrieving the records using fetchall_hashref() and have found that at
least one record isn't being written correctly so I'm trying to figure
out why.
I can access the value of each member just fine using $mediaref-
>{$media_id}->{'ADID'} and I can access the size of the entire record
set as keys ( %$mediaref ). What I need to know, though, is how many
elements exist in $mediaref->{$media_id}, but I can't figure out
whether that's possible or how to do it. I've tried all kinds of
variations of keys ( %$mediaref->{$mediaid} ) with no luck at all.
Is it possible? Am I correctly guessing at how the system stores
fields (i.e. as a nested hash)?
Any insight would be very much appreciated.
Thanks.
Rob Wilkerson
