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

Perlについての質問箱 30箱目 at TECH

473:デフォルトの名無しさん
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さん＞
必要になってからがんがります☆(ｺﾗ

次ページ

続きを表示

1を表示