Opened by bianca at 2014-05-05 11:32
User since
2012-05-04
1077 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-05-04
1077 Artikel
BenutzerIn
Im Prinzip musst du nur mal in die sub uri_re schauen.
Wenn man 3 Zeilen ersetzt:
kommt schon was besseres raus. Ich denke aber, man sollte in der $domain-RE sogar weitergehen und sie durch my $domain = qr{[\w\-.]+}; ersetzen und fordern, dass der Text korrekt decodet wurde. In beiden Fällen kommt jedenfalls für deinen Testfall das richtige raus.
Wenn man 3 Zeilen ersetzt:
Code (perl): (dl
)
1 2 3 4
my $domain = qr{[^:/?#\s<>]+}; my $path = qr{/[^?#\s]*}; ... return qr{ $scheme : (?://)? $domain (?:$path)? (?:$query)? (?:$fragment)? }x;
kommt schon was besseres raus. Ich denke aber, man sollte in der $domain-RE sogar weitergehen und sie durch my $domain = qr{[\w\-.]+}; ersetzen und fordern, dass der Text korrekt decodet wurde. In beiden Fällen kommt jedenfalls für deinen Testfall das richtige raus.