日によって背景色を変える
#! /usr/local/bin/perl # 日時取得 ($sec, $min, $hour, $date, $mon, $year, $wday) = localtime time; # 背景色の配列(2個以上〜31個) @color = ('#ff9999', '#99ff99', '#9999ff', '#ffff99', '#ff99ff', '#99ffff'); # 日を背景色の数で割ったあまり $date = $date % @color; # HTML出力 print qq(Content-type: text/html\n\n); print qq(<html>\n); print qq(<head>\n); print qq(<title>日替わり背景色</title>\n); print qq(</head>\n); print qq(<body bgcolor="$color[$date]">\n); # 背景色 print qq(毎日背景色が変わります<br><br>\n); print qq(</body>\n); print qq(</html>\n); exit;
〔 実行する 〕