<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <p>Их там может быть произвольной длины. Например,  pvt.k12.ma.us. <br>
    </p>
    <p><br>
    </p>
    <div class="moz-cite-prefix">On 24.12.2018 0:26, Andrei wrote:<br>
    </div>
    <blockquote type="cite"
cite="mid:CANVWn7GjuTsEBwJ5v6-0DOiN9GMav7PGkv3GsDve=4F2A4rKkg@mail.gmail.com">
      <meta http-equiv="content-type" content="text/html; charset=UTF-8">
      <div dir="ltr">Хэшем?
        <div><br>
        </div>
        <div>Что-то типа:</div>
        <div><br>
        </div>
        <div><font face="monospace, monospace">my %domains = map { $_
            => 0 } @domains;</font></div>
        <div><br>
        </div>
        <div><font face="monospace, monospace">sub is_first_level {</font></div>
        <div><font face="monospace, monospace">    my ( $domain ) = @_;</font></div>
        <div><span style="font-family:monospace,monospace">    my (
            undef, $the_rest ) = split /\./, $domain, 2;</span><br>
        </div>
        <div><span style="font-family:monospace,monospace">    return
            exists $domains{ $the_rest };</span><br>
        </div>
        <div><font face="monospace, monospace">}</font></div>
        <div><br>
        </div>
        <div>Или я чего-то в задаче не понял?</div>
        <div><br>
        </div>
      </div>
      <br>
      <div class="gmail_quote">
        <div dir="ltr">вс, 23 дек. 2018 г. в 21:56, Александр Поволоцкий
          via Moscow-pm <<a href="mailto:moscow-pm@pm.org"
            moz-do-not-send="true">moscow-pm@pm.org</a>>:<br>
        </div>
        <blockquote class="gmail_quote" style="margin:0px 0px 0px
          0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Есть
          задача - проверить, является ли домен непосредственно
          поддоменом <br>
          домена верхнего уровня.<br>
          <br>
          Список всех известных таких доменов <br>
          (<a
            href="https://publicsuffix.org/list/public_suffix_list.dat"
            rel="noreferrer" target="_blank" moz-do-not-send="true">https://publicsuffix.org/list/public_suffix_list.dat</a>)
          - 200 килобайт, <br>
          12000 строк. Делать из этого регексп я немного боюсь.<br>
          <br>
          Как вообще решают нормальные люди такую задачу?<br>
          <br>
          Alex<br>
          -- <br>
          Moscow.pm mailing list<br>
          <a href="mailto:moscow-pm@pm.org" target="_blank"
            moz-do-not-send="true">moscow-pm@pm.org</a> | <a
            href="http://moscow.pm.org" rel="noreferrer" target="_blank"
            moz-do-not-send="true">http://moscow.pm.org</a><br>
        </blockquote>
      </div>
      <br clear="all">
      <div><br>
      </div>
      -- <br>
      <div dir="ltr" class="gmail_signature">Andrei Protasovitski<br>
        < andrei[dot]protasovitski[at]gmail[dot]com ><br>
        Diemen, Netherlands</div>
    </blockquote>
  </body>
</html>