Opened by Annka at 2006-08-23 13:38
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
Dir ist schon klar, dass in deinen beiden Benchmarks die Ersetzung nur je einmal vorgenommen wird, oder? Der String (bzw. das Array) enthält nach der ersten Ersetzung nämlich keine Kommata mehr.
Oder wie die Ingenieure sagen: "Wer misst, misst Mist."
PS: Okay, renee hat's ähnlich gemacht.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
~/perl/test> cat tr_vs_s2.pl
#!/usr/bin/perl
use Benchmark qw(:all);
my $string = 'Hallo, Welt blub blub, foo, bar.' x 10_000;
cmpthese( 10_000, {
'regex' => sub { (my $new = $string) =~ s/,//g; },
'trans' => sub { (my $new = $string) =~ tr/,//d },
});
~/perl/test> perl tr_vs_s2.pl
Rate regex trans
regex 66.7/s -- -78%
trans 300/s 350% --
Oder wie die Ingenieure sagen: "Wer misst, misst Mist."
PS: Okay, renee hat's ähnlich gemacht.