如何在 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 包含一个 正则表达式与 RFC-1035 匹配，这足够好吗？

Answer 2

我在 Data::Validate::Domain “http://search.cpan.org/search?query=RFC+1123&mode=all”rel="nofollow noreferrer">CPAN。

我还没有尝试过这个，但它看起来很有希望（有积极的评论等）。