Perl Regular Expression

[OS2Rules]

Hi All:

Having a bit of trouble with a Perl regular expression.

I'm looking for the following in a string:

- Upper case character A

- 6 upper case characters (no more, no less)

- 1 numeric digit

- an underscore.

as in:    AXXXXXX5_

I just can't seem to get the expression.

Thanks in advance.

[PGStats]

"/A[A-Z]{6}?\d_/"

PG

[OS2Rules]

Thanks.

That works perfectly - but it looks like my requirements have changed a bit.

How would I code  the same expression of the last character (the number) could also be a uppercase alpha character?

[Haikuo · Accepted solution]

"/A[A-Z]{6}(\d|[A-Z])_/"

Haikuo