perlで数字と文字が混ざっているものか判断したい

Question

表題の通りなのですが、
perlで数字と文字が混ざっているものか判断したいです。

その文字列が
1.数字のみか
2.文字のみか
3.数字と文字の混在か
この3つははっきりと区別したいです。

正規表現で「1.数字のみのか」の判定は以下のようにやると思うのですが、
残りの2つが分かりません。

$data = "202号室 佐藤";

if ($data =~ /^[0-9]+$/) {
print "数字のみです。\n";
}elsif(){
print "文字のみです。\n";
}elsif(){
print "数字と文字の混在です。\n";
}

どなたか、elsifの条件に入るコードをご教授お願い致します。
宜しくお願い致します。

Answer 1

数字のみ・文字のみについてはfu7mu4さんの回答にある考え方でOK。では、「混在」はというと、混在とはすなわち「数字のみ」・「文字のみ」以外ということですから、単純に補集合をとればいいわけです。だから最後にはelsifを持ってくる必要はありません。

if ($data =~ /^\d+$/) {
  print "数字のみです。\n";
}elsif($data =~ /^\D+$/){
  print "文字のみです。\n";
}else{
  print "数字と文字の混在です。\n";
} 

\d, \Dはそれぞれ[0-9],[^0-9]と同じ意味です。

以上で解決のはずですが、参考までに、「数字と数字以外の両方を含む文字列」にマッチするパターンを使うとすれば次のようになります。

if($data =~ /(?=.*\d)(?=.*\D)/){
  print "mix\n";
}

Comments

[yooashleaf]

分かりやすいご回答ありがとうございます。
バッチリできました！本当に感謝致します！

Answer 2

数字以外を文字列と考えますと
数字以外の正規表現はこのようになります。

[^0-9]

したがって

$data =~ /^[^0-9]+$/

になると思います。

Comments

[yooashleaf]

回答ありがとうございます！
その場合ですと「文字のみ」なのか「数字と文字の混在」なのかは判別できるのでしょうか？