数字・英数字の判別

質問

perl初心者なのですが、方法がわからないので教えてください。
　ユーザーが文字を一行入力し、入力文字の中に
(1)数字があるか
(2)アルファベットがあるか
(3)両方あるか

で判別したいのですが、どうすればいいのでしょうか。困ってるのでお願いします。

回答No.1

BLUEPIXY · ベストアンサー

while(<>){
$isNum = $isAlpha = 0;
if(/\d/){
$isNum = 1;
print "数字があります\n";
}
if(/[A-Za-z]/){
$isAlpha = 1;
print "アルファベットがあります\n";
}
if($isNum && $isAlpha){
print "数字とアルファベットがあります\n";
}
}

お礼

詳しい回答有難うございました。
非常に助かりました。