regex - 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 任意の 16 進数 ("[0-9a-fA-F]")。

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

Answer 2

これを試して

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

Answer 3

あるいは

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