<div dir="ltr">Если <a href="http://k12.ma.us">k12.ma.us</a> есть в списке, должно работать.</div><br><div class="gmail_quote"><div dir="ltr">вс, 23 дек. 2018 г. в 22:29, Александр Поволоцкий <<a href="mailto:tarkhil@over.ru">tarkhil@over.ru</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">
  
    
  
  <div bgcolor="#FFFFFF">
    <p>Их там может быть произвольной длины. Например,  <a href="http://pvt.k12.ma.us" target="_blank">pvt.k12.ma.us</a>. <br>
    </p>
    <p><br>
    </p>
    <div class="gmail-m_-4935970697900909797moz-cite-prefix">On 24.12.2018 0:26, Andrei wrote:<br>
    </div>
    <blockquote type="cite">
      
      <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" target="_blank">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">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">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" rel="noreferrer" target="_blank">http://moscow.pm.org</a><br>
        </blockquote>
      </div>
      <br clear="all">
      <div><br>
      </div>
      -- <br>
      <div dir="ltr" class="gmail-m_-4935970697900909797gmail_signature">Andrei Protasovitski<br>
        < andrei[dot]protasovitski[at]gmail[dot]com ><br>
        Diemen, Netherlands</div>
    </blockquote>
  </div>

</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>