creating a multiple hash is the same as you create a common hash.
you can do,
my %value;
$value{'172.16.1.45'} = {'google' => 34};
$value{'172.15.2.34'} = {'yahoo' => 45};
etc.
to show the hash structure, use Data::Dumper:
use Data::Dumper;
print Dumper \%hash;
to print the hash, use a for loop:
for my $outkey (keys %hash) {
for my $inkey (keys %{$hash{$outkey}}) {
print $inkey, ": ", $hash{$outkey}->{$inkey},"\n";
}
}
Not tested it.Good luck.
Regards,
Jeff (Joy) Peng
On Fri, Mar 21, 2008 at 6:33 PM, sivasakthi <[EMAIL PROTECTED]> wrote:
> Hi all,
>
> I want to create multiple hash and retrieve the values for print like
> below ,
>
> %values= (
> '172.16.1.45' => {'google.com' => 34, 'linux.com' => 45},
> '172.15.2.34' => {'hp.com' => 345, 'oracle.com' => 4567},
>
> );
>
>
> how to do that?
>
>
>
> Thanks,
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
