8コメント1KB

CGI１日目

■ このスレッドは過去ログ倉庫に格納されています

0001CGI１日目

NGNG

今日始めてCGIを書いたのですが、もっと効率のよい書き方ありますか？
・日ごとに分けるアクセスログ
----------------------------------------------------------
#!/www/perl/bin/perl

###日時の取得####
( $sec＠｀$min＠｀$hour＠｀$day＠｀$mon＠｀$year＠｀$wday ) = localtime(time);
$mon++;
@week = ('sun'＠｀'mon'＠｀'tur'＠｀'wen'＠｀'tur'＠｀'fri'＠｀'str'＠｀);
$whay = $week[$wday];

###ログの書き込み####
print "Content-type: text/plain\n\n";

open(LOG＠｀ ">>log/$year/$mon/access$day.log");
&accesslog;
close(LOG);

############サブルーチン##############################
sub accesslog {
print LOG "$ENV{'REMOTE_ADDR'} ";
print LOG "$year/$mon/$day:$hour:$min:$sec ";
print LOG "$ENV{'REMOTE_HOST'} /";
print LOG "$ENV{'HTTP_REFERER'}\n";
}

0002名無しさん

NGNG

これで良いと思います。。
自分の好きなように書いていくのが，宜しいかと。

0003曜日の

NGNG

スペルがあやしいかも。

0004名無しさん

NGNG

自分がわかれば良いんじゃない？（笑）

0005CGI１日目

NGNG

日付のところだけは、「CGI入門をコピーしました」

0006名無しさん

NGNG

火曜日と木曜日は区別しなくていいの？
って、どうせ使ってないのか…

0007CGI１日目

NGNG

未熟でした。出直してきます

0008名無しさん

NGNG

素敵なオチだ。今日やっと笑えた。

■ このスレッドは過去ログ倉庫に格納されています