ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Temerev                    2:5004/21.6    08 Jul 2000  20:52:59
 To : Artem Chuprina
 Subject : help neded
 -------------------------------------------------------------------------------- 
 

 
 Artem Chuprina -> perl@perl.pp.ru:
 
  >>> процитировать из Mastering Regular Expressions регекс из 10 символов
  >>> и строчку из 30, применение коего к коей будет работать на любом
  >>> существующем процессоре на несколько порядков дольше, чем способен
  >>> прожить оный процессор.
  pppr>> ХОЧУ! Люблю я всякое такое :)
  AC> Сходу получилось на
  AC> "-X----------------------------" =~ /X((.*)*)*X/;
  AC> (первый минус важен - иначе срабатывает какая-то оптимизация). Вообще
  AC> разнообразными оптимизациями может лечиться что-то ещё, в Mastering
  AC> Regular Expressions более подробно расписано...
 
 По-моему, это наглая лжа:
 
 use Benchmark;
 
 timethis (10000,'("-X----------------------------" =~ /X((.*)*)*X/)');
 timethis (10000,'("-X----------------------------X" =~ /X((.*)*)*X/)');
 
 >==(первый regexp - false, второй - true)==============================
 
 timethis 10000:  0 wallclock secs ( 0.11 usr +  0.00 sys =  0.11 CPU) @
 90909.09/s (n=10000)
             (warning: too few iterations for a reliable count)
 timethis 10000:  2 wallclock secs ( 1.70 usr +  0.00 sys =  1.70 CPU) @
 5882.35/s (n=10000)
 
 Perl 5.6.0/Win32
 
 Alexander Temerev, sorhed@omskmail.ru
 
 --- 21st Century Schizoid Man
  * Origin: Paseo de Gracia (2:5004/21.6)
 
 

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

Тема:    Автор:    Дата:    Re: help neded   Artem Chuprina   07 Jul 2000 12:15:20   help neded   Alexander Temerev   08 Jul 2000 20:52:59