#! /usr/bin/perl use strict; use warnings; use URI::Find::Schemeless; use HTML::Entities qw(encode_entities); my $text = q~ hallo dies ist keine.url dies ist aber eine: www.intertivity.com ftp.irgendwas.de/test/thisfile mailto:perl@intertivityNOSP4M.com od +er so yeah perl@intertivityNOSP4M.com http://www.intertivity.com/ ~; my $finder = URI::Find::Schemeless->new ( sub { my ($uri, $originalUri) = @_; return q/<a href="/ . encode_entities("$uri") . q/">/ . encod +e_entities($originalUri) . q~</a>~; } ); my $howManyFound = $finder->find(\$text); print "$howManyFound URIs found\n"; print "$text\n";
In reply to Re: finding urls in a string
by esskar
in thread finding urls in a string
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |