<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">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_signature">Andrei Protasovitski<br>< andrei[dot]protasovitski[at]gmail[dot]com ><br>Diemen, Netherlands</div>