Matching URls

[Seansan]

Hi,

Does anyone know of a link to or an example of a decent regexp that wil
recognize internet URLs? (It needs to match urls starting with http:// and
www.)

I am trying to replace a string like
"My Homepage is @ http://www.homepage.nl"
with
"My Homepage is @ <A HREF =
'http://www.homepage.nl'>http://www.homepage.nl</A>"

Thx, Seansan

 

[Jeff 'japhy' Pinyan]

perldoc URI::Find
and
perldoc URI::Find::Schemeless

Damn those URIs and their zany schemes.

 

[JR]

Hi,

Does anyone know of a link to or an example of a decent regexp that wil
recognize internet URLs? (It needs to match urls starting with http:// and
www.)

I am trying to replace a string like
"My Homepage is @ http://www.homepage.nl"
with
"My Homepage is @ <A HREF =
'http://www.homepage.nl'>http://www.homepage.nl</A>"

Thx, Seansan

## I think this is what you want. Good luck.
## JR

#!/perl
use strict;
use diagnostics;
use warnings;

while(<DATA>) {
s/(http:\/\/www.*)\b/<a href='$1'>$1<\/a>/g;
print $_, "\n";
}

__DATA__
My homepage is @ http://www.homepage.nl
My favorite site is @ http://www.espn.com
My second most favorite site is @ http://www.whatever.org

=pod
## OUTPUT

My homepage is @ <a href='http://www.homepage.nl'>http://www.homepage.nl</a>
My favorite site is @ <a
href='http://www.espn.com'>http://www.espn.com</a>
My second most favorite site is @ <a
href='http://www.whatever.org'>http://www.whatever.org</a>

=cut

 

[Bob Walton]

Seansan wrote:

....

Does anyone know of a link to or an example of a decent regexp that wil
recognize internet URLs? (It needs to match urls starting with http:// and
www.) ....


Thx, Seansan

You could:

use Regexp::Common::URI;

 

[Bob Walton]

Bob Walton wrote:

....

You could:

use Regexp::Common::URI;

Make that:


use Regexp::Common qw(URI);

 

[Seansan]

Thx JR (and others),

I tried it, and it works. But I only have 1 problem:

*) It matches all the text after the url as well."My String: "Homepage is @
http://www.homepage.nl, yep thats it" becomes
"Homepage is @ <A HREF=http://www.homepage.nl yep thats
it>http://www.homepage.nl yep thats it</A>"

Any ideas on how to solve this? I played witht he regexp a while, but I cant
figure it out.

ps. How would I alter the regexp to match www. also? Like this?
s/([http:\/\/www|www].*)\b/<a href='$1'>$1<\/a>/g;

Seansan

 

[Patrick LeBoutillier]

Hi,

Does anyone know of a link to or an example of a decent regexp that wil
recognize internet URLs? (It needs to match urls starting with http:// and
www.)

Check out the Regexp::Common module. I think it has what you are looking for.