|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Mikhail Polykovsky 2:5020/400 14 Mar 2003 14:41:39
To : All
Subject : Сложная конструкция
--------------------------------------------------------------------------------
Здравствуйте. Hе могу сообразить, как динамически заполнять сложную
конструкцию.
Мне нужно
{
'type1' =>
[
{
'field' => 't2',
'name' => '2'
},
{
'field' => 't3',
'name' => '3'
},
{
'field' => 't1',
'name' => '1'
}
];
'type2' =>
[
{
'field' => 't1',
'name' => '1'
}
];
}
То есть несколько типов ($type), в каждом типе массив, элемент массива - хэш.
$fields - Хеш массивов хешей, чтобы читать print $fields{'type1'}[0]{'name'}
Заполняю так: на каждом шаге получаю следующие $type, $name, $field,
потом push @{ $fields{$type} }, {'name' => $name, 'field' => $field};
Получается
$VAR1 = 'type1';
$VAR2 = [
{
'field' => 't2',
'name' => '2'
},
{
'field' => 't3',
'name' => '3'
},
{
'field' => 't1',
'name' => '1'
}
];
$VAR3 = 'type2';
$VAR4 = [
{
'field' => 't1',
'name' => '1'
}
];
Читал perldsc, там заполнение $rec->{members} = [ @members ]; , мне
это не подходит, а как иначе, сообразить не могу. Посоветуйте, плз.
PS Сорри за длинный постинг, так нагляднее было...
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: UTC (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
