Regular Expression

[thoxin]

Hello,

Perl is quite new to me and I don´t have much experience with regular Expressions.
But now I need one to match this Pattern.

http://www.server1.domain.top

I need the '.domain.top' information. Can someone help me with this expression?

Thanks
Thomas

 

[greadey]

Well if you always want to match something like;

http://www.summat.domain.top

then your RE is as simple as;

/

http://www\.\w+\.domain\.top/

 

[thoxin]

hi,

thank but I was looking for this one.

(\.[a-z0-9-])(\.[a-z0-9-])$

regards
thomas

 

[Coderifous]

probably better:

@strings = (
  "[URL unfurl="true"]www.tek-tips.com",[/URL]
  "server1.mps.ond-43.silvernet.org",
  "esdn3.over-wash-ibm-corp.nns2.solutions.net",
  "super.size.mcdonalds.com"
  );

for(@strings){
  local $\ = "\n";
  /\.\w+\.\w+$/;
  print $&;
}

This will always ouput the two topest level domains, regardless of the number of subdomains.

--jim

 

[Coderifous]

oops. posted at the same time as thomas. didn't see his till afterwards.

 

[thoxin]

thanks, thats really better!!!

 

[Coderifous]

no, mine is wrong becuase I don't include dashes as valid characters... modified:

/\.[\w-]+\.[\w-]+$/;

 

[Coderifous]

OOPS I did't include dashes as valid characters... modified:

/\.[\w-]+\.[\w-]+$/;

Glad I could assist.

--jim