Perl: Domain-Muster matchen
Advertisement
Kleine Erinnerungsstütze an mich, da dank eigener Doofheit etwa zehn Minuten für dieses Match benötigt habe, um zukünftig meine Doofheit abzufangen. :-P
Will man in Perl eine Domain (keine URL) matchen, geht das so:
Was machen wir in dem Match? Wir prüfen, ob er nur alphanumerische Zeichen, Punkte (für Subdomains) und Bindestriche enthält und schauen zusätzlich, ob nach dem letzten Punkt nur maximal 4 Buchstaben kommen.
Der letzte Abschnitt dürfte mit den neuen Top-Level Domains hinfällig sein, aber für meine Zwecke ist das Matching in dem Zustand ausreichend.