Как проверить имя хоста в Perl?

Question

Мне нужно придумать регулярное выражение для проверки имени хоста RFC-1123 и RFC-952 .

Прямо сейчас я использую это:

^(?=.{1,255}$)[0-9A-Za-z](?:(?:[0-9A-Za-z]|\b-){0,61}[0-9A-Za-z])?(?:\.[0-9A-Za-z](?:(?:[0-9A-Za-z]|\b-){0,61}[0-9A-Za-z])?)*\.?$/

но это не помогает, так как a. не распознает неверное имя хоста.

Как улучшить выражение reg для соответствия этим RFC?

Спасибо

Answer 1

Regexp :: Common содержит regex , совпадающее с RFC-1035 , это достаточно хорошо?

Answer 2

Я нашел Данные :: Подтверждение :: Домен в CPAN .

Я не пробовал это, но выглядит многообещающе (имеет положительные отзывы и т. Д.).