Jak wyciągnąć domenę z adresu

[wszystko ginie]

Wyrażenia regularne nigdy nie były moją mocną stroną...

Potrzebuję wyciągnąć przykładowo z URLa:

https://www.subdomena.wsubdomenie.domena.pl/katalog/podkatalog/plik.html

samo "domena.pl".

Oczywiście nigdy nie wiem czy będą w tych adresach subdomeny czy podkatalogi, lista zawiera ot po prostu adresy stron internetowych...

(choć mój skrypt jest w perlu, piszę na tym forum, ponieważ tych samych regułek można użyć w php)

[cyrylas]

https://www.subdomena.wsubdomenie.domena.pl/katalog/podkatalog/plik.html

^(https://)?[^/]+\.?([\w\d]+\.[a-z]{2,4})

\\2 - tu bedzie to, co sie interesuje

Piszę na sucho, ale powinno chyba działać

[wszystko ginie]

Dziękuję bardzo, naprowadziłeś mnie mocno, ale...

zmodyfikowałem trochę pod perla:

$url =~ /^https:\/\/?[^\/]+\.?([\w\d]+\.[a-z]{2,4})/;
print "$1\n";

i działa śmiesznie, bo pokazuję tylko ostatnią literę z domeny:

np. zamiast wikipedia.org jest a.org, zamiast onet.pl - t.pl itd...

[cyrylas]

[^\/]+ jest zachłanne i pochłania całe "wikipedi". Miałem nadizeję, że rozwiąże to \., ale nie chce.

A może rozbić to na 2 grepy:

https://([\w\d]+\.[a-z]{2,4})/ = dopasuje https://domena.pl

i

\.([\w\d]+\.[a-z]{2,4})/ = dopasuje do https://poddomena.domena.pl

Może zadziałąc takie połaczenie też:

[https:\/\/|\.]([\w\d]+\.[a-z]{2,4})/

[wszystko ginie]

Uff, wyspałem się i podszedłem do tematu zupełnie od nowa.

Zrobiłem tak i wydaje się działać:

$url =~ /([\w\d\-]*)(\.org|\.com)/;
print "$1$2\n";

W ten sposób mogę też ustalić jakie typy domen mnie interesują... A właściwie muszę ustalić.