07/05/07 18:59:18
>>466さん＆>>468さん＞
㌧クスです！参考にして少し書き換えました！
#!/usr/local/bin/perl -w
require 'jcode.pl';
print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n";
while (<>){
if (/[1-3]$/) {chop;$kyara=chop;last;}
};
if($kyara==1){print"あなたはお昼寝好きのこねこを選びました☆"}
elsif($kyara==2){print"あなたはお人好しのゴーレムを選びました☆"}
elsif($kyara==3){print"あなたは強気なドラゴンを選びました☆"};
while (<>){};
こんな感じに☆
>>464さん＞
必要になってからがんがります☆(ｺﾗ