|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Koteroff 2:5020/400 11 Jun 2002 02:55:13
To : Alan Long
Subject : Re: вопрос про eval и tr
--------------------------------------------------------------------------------
Здравствуйте, Alan.
11 июня 2002 года, вторник, 11:18. Вы написали:
> Я решил эту проблему примерно так:
> - --
> sub _setconvert {
> my $self = shift;
> my $from = $self->_get_convert_from();
> my $to = $self->_get_convert_to();
> if( defined $from and defined $to ) {
> $self->{CONVERT} = eval "sub { tr/$from/$to/; $_; }";
> }
> }
> sub convert {
> my $self = shift;
> local $_ = shift;
> my ( $rc );
> if( defined $self->{CONVERT} and defined $_ ) {
> $self->{CONVERT}->();
> }
> return $_;
> }
> - --
> Hо как мне кажется это не слишком прямое решение, может-быть как-то еще
> возможно ?
Думаю, Ваш код вполне оптимален - по крайней мере, оптимальнее предыдущего.
Единственное что - мне кажется, он чуть многословен, но это, наверное, никак
не влияет на скорость работы - скорее на читабельность.
--
С уважением,
Дмитрий Котеров (dk@dklab.ru), ведущий программист.
Лаборатория dk, http://www.dklab.ru
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: вопрос про eval и tr 