aus array kommas löschen: hilfe ... - #69120 (Allgemeines zu Perl)

sid burn

2006-08-23 18:07

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

[quote=pq,23.Aug..2006, 13:51][quote=Crian,23.08.2006, 13:32]

Code: (dl )

s~,~~g for @array;

[/quote]
aua. dann schon eher
tr~,~~d for @array;[/quote]
Och würde ich nicht umbedingt sagen:

Code: (dl )

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 },
});

Code: (dl )

1
2
3

        Rate trans regex
trans 1190/s   --  -62%
regex 3145/s 164%    --

Code: (dl )

use Benchmark qw(:all);
my @array;
for ( 0..1_000 ) {
    $array[$_] = 'Hallo, Welt blub blub, foo, bar.';
}
cmpthese( 10000, {
    'regex' => sub { s/,//g  for @array; },
    'trans' => sub { tr/,//d for @array; },
});

Code: (dl )

1
2
3

        Rate trans regex
trans 3012/s   --  -24%
regex 3968/s  32%    --

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de