Hyperlinks in einem Text erkennen und "anklickbar machen" (gelöst) - #137257 (Allgemeines zu Perl)

bianca

2010-05-18 19:27

User since
2009-09-13
6978 Artikel
BenutzerIn

user image

2010-05-18T16:44:27 pq
URI::Find

Danke für den Tipp. Hab ich mal installiert und ein Testscript gemäß Doku erstellt. Aber die Ausgabe enthält keine markierten anklickbaren Links. Was mache ich falsch?

Code (perl): (dl )

#!/usr/bin/perl -W
use strict;
use warnings;
use diagnostics;

my $testtext = <<TEXTPLAIN;
Dies ist ein kleiner
Test zur Erkennung von Hyperlinks test.de oder www.test.de
oder info\@test.example
TEXTPLAIN
identifylinks ($testtext);

#--------#
sub identifylinks {
        my $text = $_[0];
        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>";
}
#--------#

Ausgabe über Konsole:

Code: (dl )

D:\>perl sub_identifylinks.pl
<pre>Dies ist ein kleiner
Test zur Erkennung von Hyperlinks test.de oder www.test.de
oder info@test.example
</pre>

mod-edit pq: email laut unserer faq in beispiel-email umgewandelt
Last edited: 2010-05-19 01:07:29 +0200 (CEST)

10 print "Hallo"
20 goto 10