慣れてくるととても楽しい。

今日は『if文・else節』を記述し、おみくじを作りました。

そして、最終的にはこんな記述で完成です。

@kuji = ('大吉','中吉','小吉','吉','末吉','凶');
@tips = (
'何をしても絶好調な一日。',
'良いことが起きます。',
'ちょっとした幸運あり。',
'心の平安あり。',
'運気上昇の兆し。',
'災厄の日。'
);

#おみくじを引く
$role = int(rand 6);

#CGIヘッダーの出力
print "Content-type: text/html\n\n";

#HTMLの出力
print "＜!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"＞\n";
print "\n";
print "\n";
print "＜p＞今日のあなたの運勢は…$kuji[$role]です。＜/p＞\n";
print "＜p＞$tips[$role]＜/p＞\n";
print "";

所々の法則的なものが見えてきました!