Thread Ersatz für URI::Find (114 answers)
Opened by bianca at 2014-05-05 11:32

Raubtier
 2014-05-07 07:52
#175371 #175371
User since
2012-05-04
1054 Artikel
BenutzerIn

user image
Im Prinzip musst du nur mal in die sub uri_re schauen.

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.

View full thread Ersatz für URI::Find