regexp to search in "http://www.server.com"

[rubis]

I have an input that could be

http://www.svr.com/

or

http://www.svr.com/file.ext

if the input if "

http://www.svr.com/file.ext",

I want to eliminate file.ext and get "

http://www.svr.com/".

I've tried

$url =~ m[^

http://+?/+?\.*?

]

but it doesn't work. Any suggestion??

 

[goBoating]

$url =~ s/(http:\/\/

http://www.svr.com\/)file\.ext/$1/is;

or

$url =~ s/file\.ext//is;

or...... 'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.

 

[toolkit]

A cheaty way:

print join &quot;/&quot;, ( split </>, $url )[0..2], &quot;\n&quot;;

Cheers, Neil S-)

 

[Guest_imported]

There are many complicated regexs you can use including one that is in the core library. But what I have used to look for Dns names is to use something like this:
'\b(http:\/\/\w+\.\w+\.\w+\.com)\b'

Of course you'll have to enhance this a bit because it was designed to only account for specific addresses within my company.
1. to account make http case insensitive
2. you'll need to take out the duplicated groups and use a repeating quantifiers.

something like this (http:\/\/:\w+(\.\w+)+)