Как печатать хеш анонимных хэшей в perl?

Question

Как бы получить ценность камней, если структура хэша выглядит следующим образом?

%HoA = 
(
[stones => "ruby"], 
[metal  => "gold"], 
); 

Я пытаюсь использовать «print $ HoA -> {stones};», но значение не возвращается.

Answer 1

Проблема в том, что члены %HoA являются массивами, а не хешей. Фактически, у вас есть хэш с одним элементом. Ключ этого элемента - ссылка на массив, содержащий два элемента: «камни» и «рубин». Значение этого элемента является ссылкой на массив, содержащий два элемента: «металл» и «золото».

Я предполагаю, что вы хотите хэш, который будет содержать список камней, список металлов и т.д. способ сделать это:

%HoA = 
(
    stones => ["ruby"], 
    metal  => ["gold"], 
); 

Теперь $ Хоа {камни} является ссылкой массив, содержащий один элемент «ruby».

print @($HoA{stones}); 

должно дать вам:

ruby