07/02/24 20:46:22 twlpw7Ij0
>>243
ソースはこんな感じですね。
（ちなみにスクリプトはかなり古いホームページサンプルスクリプト大全集／技術表論社のものです）
#!/usr/local/bin/perl
#
#日付け、時刻の表示(グラフィック版)
#
#カスタマイズ可能な変数
$title ="Today status(image)";
#ヘッダー出力
print "Content-type: text/html\n\n<html><head><title>$title</title></head>\n";
##イメージファイルの置かれている場所
$data = "./sampleimage";
#時刻、日付けの情報を得る。
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++; #月に一足す