Replacing URLs in Strings - Perl

Question

I have a bunch of strings that have URLs in them and I need to remove the URL and replace it with a different one. The only way I can think of to do it is with split:

($start, $url, $end) = split(/:/);

But I don't think this is the right way to go about it, because if the url is at the start or end of the string it won't work properly.

Any ideas greatly appreciated :)

Answer 1

Try using URI::Find.

Answer 2

The already-suggested URI::Find looks to be a good bet.

Alternatively, Regexp::Common can provide suitable URLs to match URLs, for instance:

use Regexp::Common qw(URI);
my $string = "Some text, http://www.google.com/search?q=foo and http://www.twitter.com/";
$string =~ s{$RE{URI}}{http://stackoverflow.com/}g;

The above would replace both the URLs with http://stackoverflow.com/ as an example.