Capacio, Paula J wrote:
Replace
>> print "\nTest iterating over the 3 dimensional hash of hashes...\n";
>> foreach my $fileTypeKey (keys %tp3Lookup) {
>> print "$fileTypeKey => \n";
>> foreach my $tpKey (keys %{$tp3Lookup{$fileTypeKey}}) {
>> print "\t$tpKey => $tp3Lookup{$fileTypeKey}{$tpKey}\n";
>> print "\tThis is a ",
>> }
>> }
with this:
print "\nTest iterating over the 3 dimensional hash of hashes...\n";
foreach my $fileTypeKey (keys %tp3Lookup) {
print " $fileTypeKey => \n";
foreach my $tpKey (keys %{$tp3Lookup{$fileTypeKey}}) {
print "\t$tpKey => \n" ;
foreach my $spKey (keys
%{$tp3Lookup{$fileTypeKey}{$tpKey}}) {
print "\t\tKey => $spKey\tVal =>
$tp3Lookup{$fileTypeKey}{$tpKey}{$spKey}\n";
}
}
}
--
Henry
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
