Simplification des expressions régulières en Perl

Question

Je veux simplifier l'affirmation suivante.

if($_=~/^([0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F])/)

Existe-t-il une autre façon d'écrire la déclaration ci-dessus sans répéter [0-9a-fA-F] n fois ?

Answer 1

Vous pouvez utiliser Quantificateurs

{n} Correspond exactement n fois

if (/^([0-9a-fA-F]{5})/)

De même, vous pouvez utiliser une classe de caractères POSIX

xdigit Tout chiffre hexadécimal ("[0-9a-fA-F]").

if (/^([[:xdigit:]]{5})/)

Answer 2

Essayez ceci

if($_=~/^([0-9a-fA-F]{5})/)

Answer 3

Ou même

if( /^([0-9a-fA-F]{5})/ )