【Perl 】初心者コーナーPart5
226 ：名無しさん＠お腹いっぱい。：
>>220
#! /usr/local/bin/perl
open(IN,"count.dat");
@lines=<IN>;
close(IN);
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
chomp($lines[$hour]);
$lines[$hour] = $lines[$hour]+1 . "\n";
open(OUT,">count.dat");
flock(OUT,2);
print OUT @lines;
flock(OUT,8);
close(OUT);
でやってみたんだけど駄目です。
時間毎のアクセス数の集計をしたいのだけど、
色々調べてやってみたんだけど、どこが駄目なのかわからんす。
誰か分かる人教えてください
#! /usr/local/bin/perl
open(IN,"count.dat");
@lines=<IN>;
close(IN);
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
chomp($lines[$hour]);
$lines[$hour] = $lines[$hour]+1 . "\n";
open(OUT,">count.dat");
flock(OUT,2);
print OUT @lines;
flock(OUT,8);
close(OUT);
でやってみたんだけど駄目です。
時間毎のアクセス数の集計をしたいのだけど、
色々調べてやってみたんだけど、どこが駄目なのかわからんす。
誰か分かる人教えてください
|
|
|