月によって背景色を変える
#! /usr/local/bin/perl # 日時取得 ($sec, $min, $hour, $date, $mon, $year, $wday) = localtime time; # 月の背景色を設定(12色) @color = ('red', 'blue', 'green', 'yellow', 'aqua', 'maroon', 'purple', 'fuchsia', 'olive', 'silver', 'teal', 'lime'); # 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[$mon]">\n); # 背景色 print qq(月によって背景色が変わります<br><br>\n); print qq(1月 <font color="$color[0]">■</font>$color[0]<br>\n); print qq(2月 <font color="$color[1]">■</font>$color[1]<br>\n); print qq(3月 <font color="$color[2]">■</font>$color[2]<br>\n); print qq(4月 <font color="$color[3]">■</font>$color[3]<br>\n); print qq(5月 <font color="$color[4]">■</font>$color[4]<br>\n); print qq(6月 <font color="$color[5]">■</font>$color[5]<br>\n); print qq(7月 <font color="$color[6]">■</font>$color[6]<br>\n); print qq(8月 <font color="$color[7]">■</font>$color[7]<br>\n); print qq(9月 <font color="$color[8]">■</font>$color[8]<br>\n); print qq(10月 <font color="$color[9]">■</font>$color[9]<br>\n); print qq(11月 <font color="$color[10]">■</font>$color[10]<br>\n); print qq(12月 <font color="$color[11]">■</font>$color[11]<br>\n); print qq(</body>\n); print qq(</html>\n); exit;
〔 実行する 〕