[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