perlで正規表現(正の数)

質問

perlで正の数の数値を判定したいと思っています。
$testが0か1しか許容したくないので下記のように正規表現を作成しました。しかし、「-1」 を$testに設定すると何故か下記のif文をスルーしてしまいます。どのようにすればよいでしょうか？

if($test !~ /[0-1]/) {
# エラー
}

回答No.1

_kappe_ · ベストアンサー

$testの内容として0または1の一文字だけを許可したいなら
if ($test !~ /^[01]$/) {
print "エラー\n";
}
のようにしてください。

お礼

ありがとうございます

Powered by GRATICA