Opened by format_c at 2004-06-11 16:54
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
[quote=Dieter,12.06.2004, 19:20]Einerseits hab ich es ausprobiert und andererseits sagt die einschlägige Literatur das es langsamer ist :)[/quote]
Da haette ich 1.) dein Beispiel und 2.) auch diese einschlaegige Literatur gerne mal gesehen!
Da haette ich 1.) dein Beispiel und 2.) auch diese einschlaegige Literatur gerne mal gesehen!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use warnings;
use strict;
use Benchmark qw(cmpthese);
cmpthese (-3, {
'regex' => sub { my $str = "a,b,c," x 1000;
$str =~ s/,//g;
},
'tr' => sub { my $str = "a,b,c," x 1000;
$str =~ tr/,//d;
},
});
_ _END_ _
Rate regex tr
regex 878/s -- -96%
tr 19783/s 2154% --