Match domain names except one

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Input 
https://www.abc.com.wi.pr.com/
https://www.abc.com/
https://www.def.com.wi.pr.com/
https://www.wt.com.wi.pr.com/
[download]

There are many URL's but we should not match with the string (wt).

https?://(www.)?(abc|def).com[^/]*/?$
[download]

Hard coding works but there are many names which is not possible,

Trying to use the regex something like this but no luck :(

https?://(www.)?(.*)(?!wt).com[^/]*/?$
[download]

Please help me.

Comment on Match domain names except one Select or Download Code

Replies are listed 'Best First'.
Re: Match domain names except one by kcott (Archbishop) on Feb 13, 2013 at 07:56 UTC
"There are many URL's but we should not match with the string (wt)." The following solves your problem - as stated. `$ perl -Mstrict -Mwarnings -E ' my @urls = qw{ https://www.abc.com.wi.pr.com/ https://www.abc.com/ https://www.def.com.wi.pr.com/ https://www.wt.com.wi.pr.com/ }; for (@urls) { say unless /wt/; } ' https://www.abc.com.wi.pr.com/ https://www.abc.com/ https://www.def.com.wi.pr.com/` [download] I suspect your problem is more complex. If so, please provide more complete details of your requirements; if not, enjoy. :-) -- Ken	[reply] [d/l]
Re: Match domain names except one by vinoth.ree (Monsignor) on Feb 13, 2013 at 08:02 UTC
*should not match with the string (wt)* If you do not want to match `wt` string directly check for `unless /\.wt\./` and print. `use strict; use warnings; use utf8; while(<DATA>) { unless(/\.wt\./) { print "matches : $_\n"; } } __DATA__ https://www.abc.com.wi.pr.com/ https://www.abc.com/ https://www.def.com.wi.pr.com/ https://www.wt.com.wi.pr.com/` [download]	[reply] [d/l] [select]
Re^2: Match domain names except one by Anonymous Monk on Feb 13, 2013 at 08:16 UTC
Thanks. But we need it in a regex	[reply]
Re^3: Match domain names except one by roboticus (Chancellor) on Feb 13, 2013 at 13:21 UTC
What strange business requirement indicates that you "need it in a regex"? ...roboticus When your only tool is a hammer, all problems look like your thumb.	[reply]
Re^3: Match domain names except one by hippo (Bishop) on Feb 13, 2013 at 14:42 UTC
Well then, I have some excellent news for you: `/\.wt\./` is a regex.	[reply] [d/l]
Re^3: Match domain names except one by Anonymous Monk on Feb 13, 2013 at 08:31 UTC
Thanks. But we need it in a regex Maybe you can write a regex	[reply]
Re: Match domain names except one by Anonymous Monk on Feb 13, 2013 at 07:57 UTC
Please help me. We already tried in match the urls Avoid a single value in the url URL pattern matching: modify a URL Repeating your question another time in Match domain names except one is not going to work well	[reply]
Re: Match domain names except one by BillKSmith (Monsignor) on Feb 13, 2013 at 14:20 UTC
There is nothing in perl preventing you from using two regular expressions. Perhaps you could use the vinoth.ree suggestion to remove unwanted results that are not removed by your own regex. Bill	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks