http://qs1969.pair.com?node_id=249932


in reply to Accessing/Printing Complex Data Structure

foreach my $img ( sort keys %images ) { my $kilobytes = 0; my $file_num = 0; print "key = $img\n"; my $count = 1; foreach ( @{$images{$img}->{frags}} ) { foreach(@{$_}) { $kilobytes += $_->{kilobytes}; $file_num += $_->{file_num}; print "frag".$count++." media ID = $_->{media_id}\n"; } } print "image kilobytes = $kilobytes "; print "image number_of_files = $file_num\n"; }

We're not surrounded, we're in a target-rich environment!