Domain aus URL filtern

[Björn Höhrmann]

ich würd gerne aus Referer-URLs die Domain rausfiltern
und komme nicht weiter :o(

use URI;
  print URI->new('http://www.example.org')->host;

Ich komme zwar bis http://(diesistdie.domain.de)/
aber ich möchte _diesistdie_ (normal www) noch wegkriegen.
! Soweit es denn vorhanden ist !

s/^[1]+.// if (m/./ > 1)

Könnt Ihr mir helfen?
Mir fällt da (wegen möglicher .co.uk etc.) nix sauberes ein.

Was machst du mit a.b.c.example.co.uk?

---

1. ^. ↩︎