ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Surkoff                       2:5020/1057.157 05 Sep 2002  09:54:39
 To : All
 Subject : Что быстрей и почему
 -------------------------------------------------------------------------------- 
 

   Hедавно проскакивало, утверждал кто-то, что при поиске строк в кавычках .*?
 проигрывает по скорости в 7 что ли раз (точных данных нет, то письмо погибло)
 [^"]*
 
   А может это кто-то прокомментировать? А то у меня пока вот что получается:
 ============================================================================
 [root@alone root]# perl -w 1.pl
 Benchmark: running .*?, [^"], each for at least 10 CPU seconds...
        .*?: 11 wallclock secs (10.63 usr +  0.02 sys = 10.65 CPU) @ 9003.38/s
 (n=95886)
       [^"]: 10 wallclock secs (10.60 usr +  0.00 sys = 10.60 CPU) @ 9342.64/s
 (n=99032)
        Rate  .*? [^"]
 .*?  9003/s   --  -4%
 [^"] 9343/s   4%   --
 
 [root@alone root]# cat 1.pl
 #!/usr/bin/perl -w
 use Benchmark qw(cmpthese);
 use strict;
 
 cmpthese(-10, {
          '.*?' => sub { q/The name "McDonald's" is said "makudonarudo" in
 Japanese/ =~ m!"(.*?)"!},
          '[^"]' => sub { q/The name "McDonald's" is said "makudonarudo" in
 Japanese/ =~ m!"([^"]*)"!}
          });
 [root@alone root]# perl -v
 
 This is perl, v5.6.0 built for i386-linux
 
 ============================================================================
 если трэба - машина P133, 32MB памяти, Linux Redhat 7.2
 
 Dmitry
 
 --- GoldED+/W32 1.1.5-1119
  * Origin: Знаю, чем ЦПУ отличается от АЦПУ... (2:5020/1057.157)
 
 

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