Re: how to replace @ inside of { }

[Gunnar Hjalmarsson]

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! :)

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/