perlのマッチ/正規表現でAの後に数字が続く文字が入っている場合に、マッチさせるにはどうしたら良いでしょうか？

Question

perlのマッチ/正規表現でAの後に数字が続く文字が入っている場合に、マッチさせるにはどうしたら良いでしょうか？

「A1」「A69」「A9902」はマッチさせて、
「A」「AY」「A 1」はマッチさせたくないです。

if($str =~ /A[0-9]/){

だとうまくいかないので、演算子を入れなければならないと思うのですが、
思うような結果になりません。

どなたかご回答お願い致します。

Answer 1

うまくいっていそうに思えますが？

while(<DATA>){
  if(/A[0-9]/){ 
    print "match     $_";
  }else{
    print "not match $_";
  }
}
__DATA__
A1
A69
A9902
A
AY
A 1

 $ perl test190227.pl                                                                                                                                      
match     A1
match     A69
match     A9902
not match A
not match AY
not match A 1

Comments

[yooashleaf]

回答ありがとうございます！
確かにこれだけのでスクリプトを作ると正確に動きます。
他の原因があるとして、1度閉じさせていただきます。ご協力ありがとうございました！