今日は、 さいころ作り。
CGIを実行するたびに、動的に数字が変化するプログラムだ。
さっそくコーディング。
------------------------------------------------------
#! c:/perl/bin/perl
#CGIヘッダの出力
print "Content-type: text/html\n\n";
#さいころを振る
$r = rand 6;
$d = int($r) + 1;
# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>Perl</title></head>\n";
print "<body><p>さいころの目は<big>$d</big>です。</p></body>\n";
print "<html>";
--------------------------------------------------------
さっそく実行。
今日は、何の問題もなく成功！
更新をかけるたびに、数字が動的に変化するぞ。
ここが今日のポイント。
$r = rand 6;
$d = int($r) + 1;
rand関数を引数6で呼び出しその戻り値を$rに代入している。
rand関数に引数6で呼び出した場合には、0以上6未満の数字がランダムに返される。
この戻り値は、少数であるため、 int($r) で整数にしている。
int関数は、整数部分を戻り値として返す関数であるのだ。
今日は、これでおしまい。