Хэшем?
Что-то типа:
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]>:
> Есть задача - проверить, является ли домен непосредственно поддоменом
> домена верхнего уровня.
>
> Список всех известных таких доменов
> (https://publicsuffix.org/list/public_suffix_list.dat) - 200 килобайт,
> 12000 строк. Делать из этого регексп я немного боюсь.
>
> Как вообще решают нормальные люди такую задачу?
>
> Alex
> --
> Moscow.pm mailing list
> [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
