--- Luinrandir Hernson <[EMAIL PROTECTED]> wrote:
> I am receiveing these long website addresses and I want to shorten them after a
>certain symbol
> like a question mark or a word like "/action". Is there an easy way to do that?
>
> EX:
> http://www.website.net/action.lasso?-database=Links_Engine
>
> TO:
> http://www.website.net/action.lasso
> OR EVEN
> http://www.website.net
Unless I am mistaken, you cannot have a question mark in the URL before the beginning
of the query
string. Thus, you can do this:
$url =~ s/\?.*//;
If you just want the the protocol along with the host/domain, you could do this:
$url =~ s!^([a-zA-Z]+://)?([^/]+).*!$1$2!;
The first one is fairly simple. The second one breaks down to:
$url =~ s!^ # match at start of string
( # capture to $1
[a-zA-Z]+ # 1 or more letters
:// # ://
)? # end optional capture
( # capture to $2
[^/]+ # 1 or more non-forward slashes
) # end capture
.* # slurp rest of string
!$1$2!xs;
Of course, if you don't have the protocol on the URL (the http part), then you won't
have it in
the resulting URL.
Cheers,
Curtis Poe
=====
Senior Programmer
Onsite! Technology (http://www.onsitetech.com/)
"Ovid" on http://www.perlmonks.org/
__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
