String überarbeiten - #83113 (Allgemeines zu Perl)

coax

2004-06-07 18:59

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

hm.. kein Wunder das der RE so schnell ist, ich hab wieder mal Mist beim Benchmarken gebaut (vergessen die Variable umzubenennen).
So.. hier nun das richtige Ergebnis :-/

Quote
Benchmark: timing 1000000 iterations of regexp, substr...
regexp: 44 wallclock secs (39.13 usr + 0.13 sys = 39.26 CPU) @ 25473.81/s (n=1000000)
substr: 4 wallclock secs ( 3.71 usr + -0.01 sys = 3.70 CPU) @ 270562.77/s (n=1000000)

Code: (dl )

use Benchmark;
timethese (1000000, {
     'substr' => sub { my $string = '123456789B31S';
                       $string = substr($string,4,(length($string)-6)); },
     'regexp' => sub { my $string = '123456789B31S';
                       $string =~ s/^.{4}(.+).{2}$/$1/; }});

\n\n

,,Das perlt aber heute wieder...'' -- Dittsche