how to remove www from the url 1

[diezy]

i was wondering how to remove the "www" from a url if it was entered by a user, however still keeping the arguments/url path in tact

 

[iluvperl]

Here is how I'd do it.

my $url = "[URL unfurl="true"]http://www.test.com";[/URL]
my $url_copy = $url; # just incase you want the original

$url =~ s/[URL unfurl="true"]www\./\./gi;[/URL]
print $url;

 

[Kirsle]

If you need a more specific kind of removement (i.e. what if the site was

http://www.www.com?

(that site actually exists by the way but prefers to be called

http://www.com

))

So here are a couple ways to do that.

my $url = "[URL unfurl="true"]http://www.test.com";[/URL]

# Don't do a global replace,
# ie like iluveperl's code but without the g
$url =~ s/[URL unfurl="true"]www\./\./i;[/URL]

# Include a protocol in the regexp. This
# way is probably better, because if $url
# was "[URL unfurl="true"]http://www.www.com/"[/URL] then it would
# become [URL unfurl="true"]www.com,[/URL] but if the url was just
# "[URL unfurl="true"]http://www.com"[/URL] then it becomes just ".com"
$url =~ s~^(http|https|ftp)://www\.~\.~i;

 

[iluvperl]

There are times even that match would fail though.

I guess $url =~ s/

http://www\./\./i;

would be better, it'd only s// the first instance.

 

[KevinADC]

I'm wondering how the user is entering the URL to get it to the script to replace the www. I would assume a form field, in which case you would want to check for valid url syntax to begin with then remove the

http://www from

the proper place in the url string if necessary.