Perlについての質問箱 43箱目

493 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 16:35:35 ] 20年前に少しかじったBasic言語しか知らないおらが、突然Perlを学ぶことに目覚めました。 たぶん初めてのPerlという良書のおかげです。 C言語とかJavaとかPythonとか色々学ぼうとして挫折を繰り返していました。 いきなりですが、質問があります。お教えください。 #!/usr/bin/perl print "Please enter a number \n"; chop($number=<STDIN>); while($number=~/|\D/){print "Please enter only a number! \n";chop($number=<STDIN>);} 以下数字が入力された場合に続く。 上記のように、何も入力されなかった（改行のみ）り、数字以外が入力されたときに エラーメッセージを出す方法を教えてください。 上記ではおそらくwhile($number=~/|\D/)の正規表現が間違っていると思います。 また、上記目的を叶えるためのエレガントな方法があればお教えください。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef