Упрощение регулярных выражений Perl

Question

Я хочу упростить следующее утверждение.

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

Есть ли альтернативный способ написать вышеприведенное утверждение без повторения [0-9a-fA-F] n раз?

Answer 1

Вы можете использовать Квантификаторы

{n} соответствует ровно n раз

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

Аналогично, вы можете использовать класс символов POSIX

xdigit Любая шестнадцатеричная цифра ( "[0-9a-FA-F]").

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

Answer 2

Попробуйте это

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

Answer 3

или даже

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