Perl konvertiert Url-String in Link

Question

Ich suche nach einer Möglichkeit, eine URL in einer Zeichenkette zu finden und in einen Link zu konvertieren.

Die URL kann an einer beliebigen Stelle der Zeichenkette stehen (am Anfang, in der Mitte oder am Ende).

Regex wird bevorzugt, aber CPAN-Module sind willkommen.

Answer 1

Die häufigste Lösung ist Regexp::Common (kein Wortspiel beabsichtigt). Sie müssen verwenden {-keep} Version wie unten gezeigt, um die Übereinstimmung zu erhalten (in $1 )

use Regexp::Common qw /URI/;

while (<>) {
    /$RE{URI}{HTTP}{-keep}/ and print "<A HREF="$1">My Link Name</A>";
} 

Wie hoffentlich offensichtlich ist, findet das obige Beispiel nur 1 Link pro Zeile. Die Suche nach weiteren Links wird als Übung für den Benutzer belassen.

---

Eine weitere Möglichkeit ist Schwerns URI::Find . Aus dem POD-Beispiel:

use CGI qw(escapeHTML);
use URI::Find;
my $finder = URI::Find->new(sub {
    my($uri, $orig_uri) = @_;
    return qq|<a href="$uri">$orig_uri</a>|;
});
$finder->find(\$text, \&escapeHTML);
print "<pre>$text</pre>";

Answer 2

use strict;
use warnings;
use 5.010;
use utf8;
use Regexp::Common qw /URI/;

my $string_with_url = <<'END_STRING';
This is an url to your question:
http://stackoverflow.com/questions/4587876/perl-convert-url-string-to-link
END_STRING

say $string_with_url;

$string_with_url =~ s/($RE{URI}{HTTP})/get_link()/eg;

say $string_with_url;

sub get_link {
    return <<'END_LINK';
        _____________¶¶¶¶¶¶¶¶¶¶¶¶¶¶
        ___________¶¶6666555666666¶¶¶
        __________¶¶6666555555556666¶¶
        ___¶¶¶__¶¶¶¶116666556611¶¶666¶¶¶¶
        __¶¶cc¶¶§§§¶¶¶11111111¶¶¶¶¶6¶¶cc¶¶
        __¶¶cc¶¶¶§§§§¶¶¶¶¶¶¶¶¶¶§§§¶¶¶¶cc¶¶
        __¶¶ssc¶¶¶¶§§§§§§§§§§§§§§¶¶¶¶css¶¶
        __¶¶ss¶¶§§¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶§§§¶¶ss¶¶
        ____¶¶ss¶¶ss¯¯¯¯ssss¯¯¯¯ss¶¶ss¶¶
        ______¶¶ssss__¶¶cccc¶¶__ssss¶¶
        ______¶¶¶ssscc¶¶cccc¶¶ccss¶¶¶¶
        _____¶¶££¶¶sssccccccccss¶¶¶££¶¶
        ____¶¶££££¶¶ss¶¶cccsss¶¶¶£££¶¶¶¶¶
        __¶¶¯¯¶¶¶¶¶¶¶¶¯¯¶¶¶¶¶¶¶££££¶¶¶ss¶¶
        __¶¶____________¶¶££££££££¶¶ssss¶¶
        __¶¶¯¯$$$$$$$$¯¯¶¶£££££££££¶¶¶cc¶¶
        __¶¶__$$ƒƒƒƒ$$__¶¶£££££££¢¢¶¶ccc¶¶
        __¶¶¯¯$$ƒƒƒƒ$$¯¯¶¶¢¢¢¥¥¢¢£££¶¶cc¶¶
        __¶¶___$$ƒƒ$$___¶¶££££££££¶¶¶¶¶¶¶
        ____¶¶__$$$$__¶¶££££££¶¶¶¶¥¥¶¶¶
        ______¶¶____¶¶¶¶¶¶¶¶¶¶¥¥¥¥¥¶¶¶
        ________¶¶¶¶¶¶¶¶¶¥¥¥¥¥¥¥¶¶¶¶
        ____________¶¶¶¶¶¶¶¶¶¶¶¶
END_LINK
}

Answer 3

Sie können Regexp::Common verwenden, um die Zeichenkette zu finden und dann eine Ersetzung vorzunehmen, um sie in einen Link zu verwandeln. In Ermangelung von etwas anderem habe ich die URL als Linktext verwendet.

    use Regexp::Common "URI";
    my $string="Some text containing http://stackoverflow.com/questions/4587876/perl-convert-url-string-to-link in middle" ;

    $string =~    s( ($RE{URI}{HTTP}) )
                  (<a href="$1">$1</a>)gx  ;

    print $string ;