[Comm] Re: [JT] Какой язык программирования выбрать

Andrey Brindeew =?iso-8859-1?q?abr_=CE=C1_altlinux=2Eru?=
Чт Июл 17 20:10:48 MSD 2003


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.
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 245 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/community/attachments/20030717/521e1b5b/attachment-0003.bin>


Подробная информация о списке рассылки community