ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yuriy Kaminskiy 2:5020/517.21 26 Aug 2001 22:56:40
To : Alexander Babanov
Subject : Re: sub inline
--------------------------------------------------------------------------------
>>>>> On 12:11 22/8/2001, Alexander Babanov <2:5020/1609.69> writes:
AB> $s = "*".uc($type)."{CODE}";
AB> $sub = eval $s;
Можно обойтись и без eval.
$sub = *{uc $type}{CODE};
Проверено - работает (perl 5.6.0, 5.004_04).
AB> timethis 1000000, 'my $z = &$sub';
AB> Во втором случае вызовы ~ в два раза быстрее.
У меня получился сильно меньший выигрыш - 18% (5.6.0) и 25% (5.004).
--
Yuriy Kaminskiy.
--- Gnus v5.2.25/XEmacs 19.14
* Origin: C2B8 59EA 497A D6F6 2640 0E49 D84A AADA EACE (2:5020/517.21@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
