2011-05-06T18:54:48 John_W

Bin Dir für Deine Hilfe wirklich dankbar, auch wenn ich erst mal Dein Programm Teil analysieren muss um damit zuarbeiten.

2011-05-06T18:54:48 John_W

Eine frage habe ich noch und zwar sind viele User nicht in der Lage eine Adresse, in Beispiel: [*URL*]Test[*/URL*], einzugeben. Können die besagten Module die URL erkennen und die Automatisch Parsen?

URI::Find

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl
use strict;
use warnings;
use URI::Find;
use CGI;

my $text=<<'EOT';
Etwas Text mit einer der URL http://www.example.org drin.
das hier geht auch: ftp://ftp.example.org/pub/index.txt !
EOT

my $cgi=CGI->new();

my $finder = URI::Find->new(sub{ return $cgi->a({-href=>$_[0]},$_[1]); } );

$finder->find(\$text);

print $text;