電話番号かどうかを判断したい（Perl）

質問

フォームに入力された文字が電話番号かどうかを判断したいと考えています。
ハイフンは使いません。

if ($$in{tel} =‾ /¥-/) {
&error("電話番号はハイフン（ - ）なしの10桁または11桁でご記入ください");
}
if ($$in{tel} =‾ /^＼d{10,}+$/) {
&error("電話番号はハイフン（ - ）なしの市外局番からご記入ください");
}

このようにしてみたのですが、うまく動きません。
どうすればいいんでしょうか...
よければ教えてください。

回答No.2

Tacosan · ベストアンサー

「0 から始まる」は簡単でしょうに.

・0 から始まる
・0A0 なら 11桁, そうでなければ 10桁
なら
/^0(?(?=[1-9]0)\d{10}|\d{9})$/
くらいでできない?

お礼

すみません。見よう見まねでやっていたので、理解できていませんでした。
ありがとうございます。早速やってみます。

補足

思ったように動くことができました。
ありがとうございました。

回答No.1

Tacosan

「うまく動かない」とは, 具体的にはどう「うまく動かない」んですか?

補足

「10桁か11桁の数字かどうか」は判断できるのですが
できれば、0から始まる番号かどうか
0【1~9までの数字】0の場合は携帯番号なのであと8桁あるかどうかがどう書けばいいのか分かりません。

こう書くべきでした。すみません。
うまく動かないとは、こちらが思ったように動かないという意味でした。失礼しました。