Gunnar Hjalmarsson wrote:
Richard Lee wrote:
I finally understood,
sub do_it {
my $XXXid = shift;
print "\$XXXid is $XXXid\n";
for (@_) {
if ( exists $_->{ ABC_XXX_m }{ XXX_id }
&& $_->{ ABC_XXX_m }{ XXX_id } eq "$XXXid" ) {
my $sdf = $_;
for (sort keys %{$sdf->{ ABC_XXX_m }} ) {
print "$_ => $sdf->{ ABC_XXX_m }{ $_ }\n";
}
}
}
}
Okay, that sub makes sense if you have a hash of hashes and:
my $id = $HoH{ABC_XXX_m}{XXX_id};
do_it( $id, \%HoH );
I guess that's progress. Congratulations! :)
thanks for all your help guys!!!
Really took more time to understand rather than just trying things till
it works
I really need to look into it more to make reference second nature as I
look to use them a lot.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
