Perlについての質問箱 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
463:連カキスマソ 07/05/07 13:11:33 もうちょっとがんばってきました（滝汗 if($_=~/3/){処理１} elsif($_=~/2/){処理２} とすると、3でも23でも32でも先に$_=~/3/にマッチしてしまう(32なんかは$_=~/2/にマッチさせたい)ので、ちょっと修正しました。 ↓ #!/usr/local/bin/perl -w require 'jcode.pl'; print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n"; $kyara=4; while($kyara==4){ $_=<STDIN>; if($_=~/3$/){print"あなたはお昼ね好きのこねこを選びました☆";$kyara=3} elsif($_=~/2$/){print"あなたはお人よしのゴーレムを選びました☆";$kyara=2} elsif($_=~/1$/){print"あなたは気の強いドラゴンを選びました☆";$kyara=1}; }; print "（番号＝）$kyara"; ↑ これなら33111とかって入力でも3ではなく1のドラゴンとして判断してくれます☆ 正規表現って便利ですね☆ >>460さん、アドバイス㌧クスでした！
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5377日前に更新/220 KB
担当:undef