From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <abr@abr.pp.ru>
Date: Thu, 17 Jul 2003 20:10:48 +0400
From: Andrey Brindeew <abr@altlinux.ru>
To: community@altlinux.ru
Subject: Re: [Comm] Re: [JT] =?koi8-r?B?68HLz8og?=
	=?koi8-r?B?0drZyyDQ0s/H0sHNzcnSz9fBzsnRINfZwtLB1Ng=?=
Message-ID: <20030717161048.GB15815@abr.tool.ru>
Mail-Followup-To: community@altlinux.ru
References: <20030714033856.GA669@tux> <200307151932.27109.asoneofus@nm.ru>
	<20030715163524.GA742@tux>
	<20030715163742.GA4840@mrkooll.tdr.pibhe.com>
	<20030716063008.GD8871@localhost.localdomain>
	<20030717072025.GF11898@mrkooll.tdr.pibhe.com>
	<20030717080740.910472B520@mail.ru.echo.fr>
	<20030717083112.GG11898@mrkooll.tdr.pibhe.com>
	<20030717135940.GB2081@abr.tool.ru>
	<20030717140810.GO11898@mrkooll.tdr.pibhe.com>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="V88s5gaDVPzZ0KCq"
Content-Disposition: inline
In-Reply-To: <20030717140810.GO11898@mrkooll.tdr.pibhe.com>
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.2
Precedence: list
Reply-To: community@altlinux.ru
List-Id: <community.altlinux.ru>
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: </pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Thu, 17 Jul 2003 16:10:48 -0000
Archived-At: <http://lore.altlinux.org/community/20030717161048.GB15815@abr.tool.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>


--V88s5gaDVPzZ0KCq
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

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.

--V88s5gaDVPzZ0KCq
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.2 (GNU/Linux)
Comment: Get my public key at http://abr.pp.ru/gpg.html

iD8DBQE/FsqI3gaCZ4hbZncRArqIAJkBRs+69OTNBEBFKqUABMM2Row/XgCfcqqU
/+1iH06vcd5f3tq5+/w2lsY=
=colW
-----END PGP SIGNATURE-----

--V88s5gaDVPzZ0KCq--