I used this code In a ASP code to display the entire content of hashes
I did some changes to neke it pure perl it should be good for your job
ex:-
printIt("", %hashToPrint);
sub printIt($%){
my ($myfix, %hash)[EMAIL PROTECTED];
foreach my $k(sort keys %hash){
print "$myfix $k\t=\t$hash{$k}\n";
if ($hash{$k} =~ m/=HASH/){
my %th = %{$hash{$k}};
printIt($myfix . "\t", %th);
}
}
}
LRMK
----- Original Message -----
From: "Daniel Falkenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, June 24, 2004 9:21 PM
Subject: Printing hash of hashes
> Hello All,
>
> I need to print my hash of hashes. For example...
>
> %HoH = (
> flintstones => {
> lead => "fred",
> pal => "barney",
> },
> jetsons => {
> lead => "george",
> wife => "jane",
> "his boy" => "elroy",
> },
> simpsons => {
> lead => "homer",
> wife => "marge",
> kid => "bart",
> },
> );
>
> How can I print that in a readable format. Then I would like to be able
> to print for example...
>
> Simpsons, Lead, homer.
>
> Any ideas?
>
> Regards,
>
> Dan
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
