[Ma-linux] Perl 2D hash array

[Aaron M. Ucko]

Przemek Klosowski <przemek at jazz.ncnr.nist.gov> writes:

> 	foreach $b (sort keys %$database{$a}){ 

Try adding a pair of braces, making %{$database{$a}} :

$ perl -e '$d={"a"=>{"b"=>"c"}}; print join(" ", keys(%{$d->{a}})), "\n";'
b

-- 
Aaron M. Ucko, KB1CJC (amu at alum.mit.edu, ucko at debian.org)
http://www.mit.edu/~amu/ | http://stuff.mit.edu/cgi/finger/?amu@monk.mit.edu