曜日によって背景色を変える
#! /usr/local/bin/perl # 日時取得 ($sec, $min, $hour, $date, $mon, $year, $wday) = localtime time; # 曜日の背景色(日曜〜土曜) @color = ('#ff9999', '#99ff99', '#9999ff', '#ffff99', '#ff99ff', '#99ffff', '#ffcc99'); # 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[$wday]">\n); # 背景色 print qq(曜日によって背景色が変わります<br><br>\n); print qq(日曜日 <font color="$color[0]">■</font>$color[0]<br>\n); print qq(月曜日 <font color="$color[1]">■</font>$color[1]<br>\n); print qq(火曜日 <font color="$color[2]">■</font>$color[2]<br>\n); print qq(水曜日 <font color="$color[3]">■</font>$color[3]<br>\n); print qq(木曜日 <font color="$color[4]">■</font>$color[4]<br>\n); print qq(金曜日 <font color="$color[5]">■</font>$color[5]<br>\n); print qq(土曜日 <font color="$color[6]">■</font>$color[6]<br>\n); print qq(</body>\n); print qq(</html>\n); exit;
〔 実行する 〕