今日の課題はおみくじです。
画面にさいころの目を表示させ、４が出たときだけ短いメッセージを表示します。
では、コーディング開始。
-------------------------------------------------------------------
#! c:/perl/bin/perl
# さいころを振る
$n = int(rand 6) + 1;
#CGIヘッダーの出力
print "content-type: text/html\n\n";
#HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>perlさいころ</title></head>\n";
print "<body>\n";
print "<p>さいころの目は<big>$n</big>です。</p>\n";
#御言葉を出力
if($n == 4){
print "<p>ふ、不吉な・・・・。4が出ました。</p>\n";
}
print "</body></html>\n";
------------------------------------------------------------------------
http://127.0.0.1/tendays/2-1.cgi 実行。
４が出ときはこんな感じです。
さいころの目は4です。
ふ、不吉な・・・・。4が出ました。
今日のポイント
$n = int(rand 6) + 1;
は、以下と同じ意味でひとつにまとめる書き方。
ん～シンプル。
$r = rand 6;
$n = int($r) + 1;
それとif文
if($n == 4){
print "<p>ふ、不吉な・・・・。4が出ました。</p>\n";
}
$n == 4 は、$nが4と等しいとき。perlでは、==が等しいという意味。
これポイントね。
大分なれてきた感じ、今日はこれでおしまい。