A05:背景色を毎日変える

大きな変化はさせたくないけど、定期的にページの雰囲気を変化させたいという人もいると思います。
今回は、背景色が毎日変わるようなCGIを紹介します。
ファイルを読み込む方法を使ってスタイルシートを利用しています。

ファイルを開く

解説
#!/usr/local/bin/perl
プロバイダがPerlを置いている場所を記述します。
ここでは/usr/local/bin/perlにあるとしています。
$max=7;
使用する色の種類を$maxに代入しています。
$color[0]="CCFFFF";
$color[1]="FFCCFF";
$color[2]="FFFFCC";
$color[3]="FFCCCC";
$color[4]="CCFFCC";
$color[5]="CCCCFF";
$color[6]="CCCCCC";
背景色に使用する値を$color[xx]に代入しています。
16進数で00〜FFの数字を赤緑青の順に並べて表現しています。
$today=(localtime(time))[3];
$x=int($today % $max);
今日の日付を$todayに代入しています。
その数字を$maxで割った余りを出す事によって、0〜$max-1の数字を出して$xに代入しています。
printf("Content-type:text/css\n\n");
printf("body{background-color:#$color[$x];}");
スタイルシートの記述方法にそって、$color[$x]が表す背景色を指定しています。
☆今回のポイント☆
CGIでスタイルシートの内容を変化させよう!
exit;
プログラムを終了させます。