Привет!

Есть хеш хешей, который я создаю следующим образом:

$hash{$key}{id} = $id;
$hash{$key}{name} = $name;
$hash{$key}{code} = $code;

Необходимо в хеш добавить $hash{$key}{date}, который должен содержать массив дат (обычно 3-4 шутки для каждого $id).
Дата представляет собой простую строку, вроде "01/01/2010" 

1) Как добавить в $hash{$key}{date} массив дат 
2) Как потом обратиться к этому массиву (сделать перебор и вывести все элементы массива)

Заранее спасибо ответившим!

1. $hash{$key}{date} = [ qw( 01/01/2010 02/02/2010 ) ];
2. print join "\n",@{ $hash{$key}{date} }

arto, а можно как-то по отдельности добавлять? Нужно что-то вроде Push(), потому что мне не известны все даты сразу.

Suppir, да можно, конечно.

перед добавлением первой даты инициализируешь пустой анонимный массив  -  
$hash{$key}{date} = [];

а затем просто добавляешь в него элементы как в обычный массив - 
push @{ $hash{$key}{date} }, "01/01/2010";
push @{ $hash{$key}{date} }, "02/02/2009";
....
и т.д.

Это не обязательно. Perl сам создаст пустой массив при первом операторе push. Называется autovivification.


Так что можно сразу делать