Как подтвердить имя хоста в 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

я нашел Данные :: Validate :: Домен на Кабинет.

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