Comment valider le nom d'hôte en Perl?

Question

Je dois trouver une expression régulière pour valider le nom d'hôte par rapport à RFC-1123 et RFC-952.

En ce moment je suis en utilisant ceci:

^(?=.{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])?)*\.?$/ 

mais cela ne fait pas l'affaire car il ne se coince pas a. nom d'hôte comme non valide.

Comment améliorer l'expression reg pour se conformer à ces RFC?

Merci

Answer 1

Regexp::Common contient regex qui correspond à RFC-1035, est-ce suffisant?

Answer 2

Je trouve Data::Validate::Domain sur CPAN.

Je n'ai pas essayé cela, mais il semble prometteur (a des critiques positives, etc.).