Opened by Gast at 2004-06-07 17:42
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
Die RegExp-Variante scheint um einiges schneller zu sein, aber darum geht es mir gar nicht. Wenn ich unbekannten Code vor mir liegen habe moechte ich schnell erkennen was die Anweisung macht und das ist fuer mich eher bei den RegExp der Fall.
QuoteBenchmark: timing 10000000 iterations of regexp, substr...
regexp: 16 wallclock secs (14.23 usr + 0.03 sys = 14.26 CPU) @ 701213.10/s
(n=10000000)
substr: 33 wallclock secs (30.75 usr + 0.06 sys = 30.81 CPU) @ 324622.63/s
(n=10000000)
Code: (dl
)
1
2
3
4
5
6
use Benchmark;
timethese (10000000, {
'substr' => sub { my $x = '123456789B31S';
$string = substr($string,4,(length($string)-6)); },
'regexp' => sub { my $x = '123456789B31S';
$string =~ s/^.{4}(.+).{2}$/$1/; }});
,,Das perlt aber heute wieder...'' -- Dittsche