Их там может быть произвольной длины. Например, pvt.k12.ma.us.
On 24.12.2018 0:26, Andrei wrote:
Хэшем? Что-то типа: my %domains = map { $_ => 0 } @domains; sub is_first_level { my ( $domain ) = @_; my ( undef, $the_rest ) = split /\./, $domain, 2; return exists $domains{ $the_rest }; } Или я чего-то в задаче не понял?вс, 23 дек. 2018 г. в 21:56, Александр Поволоцкий via Moscow-pm <[email protected] <mailto:[email protected]>>:Есть задача - проверить, является ли домен непосредственно поддоменом домена верхнего уровня. Список всех известных таких доменов (https://publicsuffix.org/list/public_suffix_list.dat) - 200 килобайт, 12000 строк. Делать из этого регексп я немного боюсь. Как вообще решают нормальные люди такую задачу? Alex-- Moscow.pm mailing list[email protected] <mailto:[email protected]> | http://moscow.pm.org -- Andrei Protasovitski < andrei[dot]protasovitski[at]gmail[dot]com > Diemen, Netherlands
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
