Leerzeichen-Regex lässt StackExchange ausfallen? - #185147 (Allgemeines zu Perl)

renee

2016-07-26 15:14

User since
2003-08-04
14371 Artikel
ModeratorIn

Durch die Mächtigkeit der Regex-Engine in Perl ist diese eher langsam. Für diese Problematik hier gibt es geeignetere Engines. z.B. Googles RE2:

Code (perl): (dl )

use v5.10;

use Time::HiRes qw(time);
my $inputA = "X".(" \t" x 10000)."A    " . ( " " x 10000);

my $start = time;
(my $t1 = $inputA) =~ s/[\s\u200c]*$/ A/;
say time - $start;

use re::engine::RE2;

$start = time;
(my $t2 = $inputA) =~ s/[\s\u200c]*$/ A/;
say time - $start;

say "gleich: " . ( $t1 eq $t2 );

Ausgabe:

Code: (dl )

1
2
3

1.35114789009094
0.000217914581298828
gleich: 1

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/