ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuriy Kaminskiy                      2:5020/517.21  31 May 2001  14:25:12
 To : Mike Kogan
 Subject : Re: reg exp again
 -------------------------------------------------------------------------------- 
 

  Hello,  Mike! 
 
 >>>>> On 13:39 28/5/2001, mike.kogan@mtt.ru writes:
  MK> Такая вот поблема: можно  ли набор команд вида
  MK> $x=~ s/$a/$b/g;
  MK> $x=~ s/$a1/$b1/g;
  MK> .........
  MK> $x=~ s/$an/$bn/g;
  MK> заменить на одну, чтоб избежать многократного анализа $x.
 
  %rep = ($a => $b, $a1=>$b1, ..., $an => $bn);
  $rep = join("|", keys %rep);
  $x =~ s/$rep/$rep{$&}/go;
  Будет ли это эффективнее - зависит от $a...$an. Посмотри при помощи
  use Benchmark;
 -- 
 Yuriy Kaminskiy.
 --- Gnus v5.2.25/XEmacs 19.14
  * Origin: none (2:5020/517.21@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: reg exp again   Yuriy Kaminskiy   31 May 2001 14:25:12   Re: reg exp again   Alexander Babanov   01 Jun 2001 19:43:22