Thread Regexp 32 Bit Limitierung (14 answers)
Opened by bloonix at 2006-10-20 15:52

renee
 2006-10-20 16:14
#71044 #71044
User since
2003-08-04
14371 articles
ModeratorIn
[Homepage] [default_avatar]
So könnte man das umgehen:
Code: (dl )
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl

use strict;
use warnings;

my $string = 'a' x 50_000 . 'skjd';
my $regexp = qr-^((.){32000}\2{18000})skjd$-;

print "yes\n" if $string =~ /$regexp/;


Edit: natürlich geht'ts noch einfacher:
Code: (dl )
my $regexp = qr-^((.{25000}){2})skjd$-;


Edit2: Dein .*$ im Regulären Ausdruck ist überflüssig. Das matcht ja auf alles...\n\n

<!--EDIT|renee|1161346568-->
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/

View full thread Regexp 32 Bit Limitierung