Domains/Subdomains per Script erkennen

[robo]

Hi Leute,

ich mache mir gerade Gedanken darüber, wie man Subdomains per Script erkennen kann. Einfach von rechts die Punkte zählen geht ja nicht, denn es gibt ja so Zeugs wie <.co.uk> oder <.com.tw>. Wenn ich da die Punkte zähle, würde ja die eigentliche Domain schon als Subdomain gewertet. Die ganzen Sonderfälle wie die o. g. vielleicht extra behandeln? Aber wo kriege ich eine möglichst komplette Liste dieser Sonderfälle her? Sonst Ideen?

Wenn ich hier den entscheidenden Tip bekomme, stelle ich dann auch den entsprechenden Codeschnipsel (Perl) zur Verfügung.

cu, Robo

[Michael]

Je nachdem wie vollständig sie sein sollte habe ich
1. Ein Skript das schon die wichtigsten ca. 350 TLDs erkennt (Darunter sind auch Domains wie z.B. <.co.uk> oder <.com.tw> auch wenn es streng genommen keine TLDs sind)

2. Eine fast vollständige Liste mit allen bekannten TLDs++ (wie ich sie gerne nenne

Die Liste ist sehr lang und umfasst auch total abgedrehte Domains für US Bundesstaten und japanische Städte usw. Eigentlich nicht wirklich brauchbar für die üblichen Zwecke .

[robo]

Je nachdem wie vollständig sie sein sollte habe ich
1. Ein Skript das schon die wichtigsten ca. 350 TLDs erkennt (Darunter sind auch Domains wie z.B. <.co.uk> oder <.com.tw> auch wenn es streng genommen keine TLDs sind)

Wenn ich das richtig verstehe, ist das eine Liste. Eine generische bzw. algorithmische Erkennung wäre mir lieber, aber das geht wohl nicht.

Bleibt die Frage, ob du die Liste rausrückst.

2. Eine fast vollständige Liste mit allen bekannten TLDs++ (wie ich sie gerne nenne

Die Liste ist sehr lang und umfasst auch total abgedrehte Domains für US Bundesstaten und japanische Städte usw. Eigentlich nicht wirklich brauchbar für die üblichen Zwecke .

Na ich denke, das wäre übertrieben.

cu, Robo

[800XE]

[quote="robo"]algorithmische Erkennung wäre mir lieber, aber das geht wohl nicht.[/quote]
wie Michael schon sagte ... eigentlich gibts in england nur subdomains

Und eine algo erkennung wird nie 100%tig sein

Aber mal mein Vorschlag
erstnal links das hatetepe://wewewe. abschneiden
dann die Punte die noch da sind zählen

sind es 2 (oder auch mehr) ?
wie lang ist das STück rechts, inkl der 2 Punkte
z.B. mercedes.co.uk
= .co.uk = 6 Zeichen
oder
firma.de.com
= .de.com = 7 Zeichen

Ich würde mal sagen 8 Zeichen sind erlaubt, wenn es mehr ist, ist es eine echte Domain welche eine Subdomain hat

shop.firma.de
= .firma.de = 9 zeichen

naja, nach dem algo sind .de.vu dann "echte" Domains



algo mit Liste
die Liste enthält nicht

.de.com
.de.vu

sondern nur de,com,at,ch,net,org,vu,ws,ltd,co,uk (ja, gibt auch ".ltd.uk")

diese liste nehmen und versuchen .xx.yy zu löschen .... ist es erfolgreich, dann war es ein "subdomainTLD" und das links daneben ist dann eine echte DOmain ... obwohl es eigentlich nur eine SUbdomain ist .....

[Michael]

Bleibt die Frage, ob du die Liste rausrückst.

... ich machs

Ich habe mir mal etwas Zeit genommen, und das Skript mit ein paar Hintergrundinformationen unter https://www.m-software.de/ veröffentlicht.

Gruß
Michael

[robo]

algorithmische Erkennung wäre mir lieber, aber das geht wohl nicht.

wie Michael schon sagte ... eigentlich gibts in england nur subdomains

Das war aber nur EIN Beispiel ... davon gibts noch mehr.

Und eine algo erkennung wird nie 100%tig sein

Ich habe eine ...

Aber mal mein Vorschlag
erstnal links das hatetepe://wewewe. abschneiden

Mache ich eh schon ...

dann die Punte die noch da sind zählen

sind es 2 (oder auch mehr) ?
wie lang ist das STück rechts, inkl der 2 Punkte
z.B. mercedes.co.uk
= .co.uk = 6 Zeichen
oder
firma.de.com
= .de.com = 7 Zeichen

Ich würde mal sagen 8 Zeichen sind erlaubt, wenn es mehr ist, ist es eine echte Domain welche eine Subdomain hat

Funktioniert nicht.

hp.com ist 'ne echte Domain
managementsoftware.hp.com ist 'ne echte Subdomain

Aber so funktioniert es: Von links her beginnend einen Block nach dem anderen abschneiden und schauen, ob das, was übrigbleibt, noch per DNS auflösbar ist. Wenn nicht, hat man die "TLD". Nachteil: Ist saulangsam, gerade bei längeren Listen.

Code: Alles auswählen

sub domain {
  my $res = shift;
  $res =~ s/^(http:\/\/)?(www\.)?([^\/]+)(\/.*|)$/$3/;
  my ($lastres, $ip);
  while ($res =~ /\.[^\.]+\./) {
    $lastres = $res;
    $res =~ s/^[^\.]+\.(.*)$/$1/;
    unless ($ip = &get_ip ($res)) {
      $res = $lastres;
      last;
    }
  }
  return $res;
}

sub get_ip {
  my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname (shift);
  my ($a, $b, $c, $d);
  my $result = '';
  foreach my $addr (@addrs) { 
    ($a, $b, $c, $d) = unpack ('C4', $addr);
    $result .= ', ' if ($result);
    $result .= "$a.$b.$c.$d";
  }
  return $result;
}

cu, Robo

[robo]

Bleibt die Frage, ob du die Liste rausrückst.

... ich machs

Ich habe mir mal etwas Zeit genommen, und das Skript mit ein paar Hintergrundinformationen unter https://www.m-software.de/ veröffentlicht.

Cool, vielen Dank. Ich werde mir das gleich mal ansehen.

Edit:

Super Sache! Danke nochmal. Allerdings meine ich, dein Beispiel-Regex für eine nicht sauber funktionierende Erkennung ist nicht korrekt:

^(www.)?[a-zA-Z0-9-].(?[a-zA-Z])$

Ich würde sagen, das sollte so in der Art aussehen:

^(www\.)?([a-zA-Z0-9-]+\.)+([a-zA-Z]+)$

cu, Robo

[Michael]

Ok,

so hatte ich das auch gemeint. Auf meiner Webseite hatte ich nur das Häkchen hinter "Convert wikitext in article" nicht entfernt. Eigentlich sollte es so aussehen.

^(www\.)?[a-zA-Z0-9\-]*\.(?[a-zA-Z]*)$

Dein Vorschlag ist sogar noch einen Hauch besser. Das Metazeichen + verlangt ja mindestens 1 Zeichen während der * auch kein Zeichen akzeptieren würde. Meine Variante würde also auch www.. akzeptieren.

Man lernt halt nie aus

[robo]

Hmmm ... schau mal im mittleren Teil, den habe ich nochmal geklammert und einen + Quantifier dahintergesetzt. So matcht der Regex dann auch auf Sub-Sub-Sub-Sub-Subdomains. Was mir allerdings bei dir nicht ganz klar ist, ist das Fragezeichen direkt hinter der öffnenden Klammer im dritten Teil. Wofür steht das?

Achja, meinen Code bin ich noch schuldig. Hier ist er. Die Funktion erwartet eine URL und gibt die Domain (ohne Subdomain) zurück:

Code: Alles auswählen

@ttld = qw (.fed.us .dni.us .com.ac .edu.ac .gov.ac);

sub domain {
  my $res = shift;
  $res =~ s/^(http:\/\/)?(www\.)?([^\/]+)(\/.*|)$/$3/;
  
  if (($res =~ /\.[^\.]+\./) && ($res !~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)) {
    my $ready = 0;
    foreach my $tld (@ttld) {
      if ($res =~ /^([^\.]+\.)*([^\.]+)\Q$tld\E$/) {
        $res = $2.$tld;
        $ready++;
        last;
      }
    }
    unless ($ready) {
      $res =~ s/([^\.]+\.)*([^\.]+\.[^\.]+)$/$2/;
    }
  }
  return $res;
}

Die Liste "@ttld = qw (.fed.us .dni.us .com.ac .edu.ac .gov.ac);" ist jetzt natürlich in dem Beispiel stark gekürzt.

cu, Robo

[Michael]

Das Fragezeichen wird an der Stelle völlig ignoriert. Kann also entfallen.

PS: Nettes perl Skript. Das erinnert mich daran, warum ich schon lange nichts mehr in perl gemacht habe.

Gruß
Michael