On Thu, Jul 17, 2003 at 05:08:10PM +0300, Maxim Tyurin wrote:
> Я и сам такое могу написать. Достаточно заменить ветвления и циклы на
> функциональные аналоги (через map сделать :)

ну что вы? преобразование Шварца - самый что ни на есть perlish way :-)

> Вы лучше на perl что-то хорошо читабельное напишите в назидание
> потомкам :)

foreach my $cref (@{ $categories_tree }) {
	$cats_2ids_mapping{ join('/', map { $_->{'name'} } @{ $cref }) } = ${ $cref }[-1]->{'id'};
}

Вот за это я и люблю Perl. А строчкой выше стоял заботливо оставленный
мной комментарий. :-)

-- 
WBR, Andrey Brindeew.
"No one person can understand Perl culture completely"
(C) Larry Wall.