![]() |
|< 1 2 >| | ![]() |
12 Einträge, 2 Seiten |
1
2
3
4
5
6
use Benchmark qw(:all);
my $string = 'Hallo, Welt blub blub, foo, bar.' x 10_000;
cmpthese( 10000, {
'regex' => sub { $string =~ s/,//g; },
'trans' => sub { $string =~ tr/,//d },
});
1
2
3
4
5
6
use Benchmark qw(:all);
my $string = 'Hallo, Welt blub blub, foo, bar.' x 10_000;
cmpthese( 10000, {
'regex' => sub { $string =~ s/,//g; },
'trans' => sub { $string =~ tr/,//d },
});
![]() |
|< 1 2 >| | ![]() |
12 Einträge, 2 Seiten |