x/box-o-sand
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

even more fun with hashes

Browse Source
This commit is contained in:
Dan Buch 2011-01-05 21:21:00 -05:00
parent c4eaadf848
commit 93cfa65b3e
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cli/hash_variables.pl
View File

@ -27,5 +27,21 @@ print "The mouse goes " . $petsounds{"mouse"} . ".\n";
print Dumper(\%petsounds) . "\n"; print Dumper(\%petsounds) . "\n";
my %a = ();
$a{1}{"a"}{"A"} = "FIRST";
$a{1}{"c"}{"B"} = "THIRD";
$a{1}{"b"}{"C"} = "SECOND";
foreach my $k1 (sort keys %a) {
foreach my $k2 (sort keys %{$a{$k1}}) {
foreach my $k3 (sort keys %{$a{$k1}{$k2}}) {
print "$k1\t$k2\t$k3\t$a{$k1}{$k2}{$k3}\n";
}
}
}
print Dumper(\%a);
1; 1;
__END__ __END__