<html>
<body>
Thanks - I was getting quite frustrated trying to get that
right!<br><br>
At 2003/07/08 01:56 PM, Oskar Pearson wrote:<br>
<blockquote type=cite class=cite cite>Hi<br><br>
<br>
Hope this helps.<br><br>
There are various syntaxes that work, but I generally<br>
use something like this:<br><br>
<br>
#!/usr/bin/perl<br><br>
my %hash;<br>
$hash{first1}{second1} = 'hello';<br>
$hash{first2}{second2} = 'world';<br>
$hash{first3}{second3} = 1;<br><br>
hash_display (\%hash);<br><br>
sub hash_display {<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $hash = shift;<br><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; foreach my $key (keys %{ $hash
}) {<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
foreach my $subkey (keys %{ $$hash{$key} }) {<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
print &quot;key $key, subkey $subkey, &quot; . $$hash{$key}{$subkey} .
&quot;\n&quot;;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>
}<br><br>
<br>
:~$ perl t.pl<br>
key first1, subkey second1, hello<br>
key first2, subkey second2, world<br>
key first3, subkey second3, 1<br>
:~$<br><br>
_______________________________________________<br>
Za-pm mailing list<br>
Za-pm@mail.pm.org<br>
<a href="http://mail.pm.org/mailman/listinfo/za-pm" eudora="autourl">http://mail.pm.org/mailman/listinfo/za-pm</a>
</blockquote>
<x-sigsep><p></x-sigsep>
<tt><br>
<font face="Courier New, Courier" size=2>Spike Hodge<br><br>
UNIX Programmer<br>
</font></tt><font face="Courier New, Courier" size=2>M-Web Technology<br>
</font><tt>021 596 8496<br>
082 901 5265<br><br>
</tt>Click here and make M-Web your homepage<br>
<a href="http://homepage.mweb.co.za/" eudora="autourl">http://homepage.mweb.co.za</a></body>
</html>