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さん、アドバイス㌧クスでした！