Ersatz für URI::Find (gelöst) - #175222 (Fragen zu Perl-Modulen)

Raubtier

2014-05-05 12:33

User since
2012-05-04
1076 Artikel
BenutzerIn
[default_avatar]

In der Doku ist https://rt.cpan.org/Public/Bug/Display.html?id=442... verlinkt, dort steht, dass der IDNA-Branch (edit: größtenteils) funktioniert. Ich hab das Repo mal eben geclonet und es scheint zumindest auf den ersten blick zu funktionieren.

Code: (dl )

~/test/uri-find(IDNA|✔)$ perl -e'use Data::Dumper;BEGIN{unshift @INC,"./lib";}use URI::Find;my @uris;my $finder = URI::Find->new(sub {my($uri) = shift;push @uris, $uri;});my $text="das ist http://höhö.example/bianca dbdf";$finder->find(\$text);print Dumper \@uris;'
$VAR1 = [
          bless( [
                   bless( do{\(my $o = 'http://xn--hh-xeab6dc.example/bianca')}, 'URI::http' ),
                   undef
                 ], 'URI::URL' )
        ];

Last edited: 2014-05-05 12:45:21 +0200 (CEST)