【Perl 】初心者コーナーPart5
219 ：22世紀を目指す名無しさん：
#! /usr/local/bin/perl
open(IN,"count.dat");
@lines=<IN>;
close(IN);
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
$count=$lines[$hour];
$count=$count+1;
open(OUT,">count.dat");
flock(OUT,2);
print OUT "$count";
flock(OUT,8);
close(OUT);
時間毎のアクセス数の集計をしたいのだけど、
↑のプログラムじゃ駄目なんですか？
どこが駄目なのかわからんす
open(IN,"count.dat");
@lines=<IN>;
close(IN);
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
$count=$lines[$hour];
$count=$count+1;
open(OUT,">count.dat");
flock(OUT,2);
print OUT "$count";
flock(OUT,8);
close(OUT);
時間毎のアクセス数の集計をしたいのだけど、
↑のプログラムじゃ駄目なんですか？
どこが駄目なのかわからんす
|
|
|