一定数を越えたら自動的に削除するには・・

質問

CGIにログ機能をつけようと思い、
以下の(1)のように書き加えたことでログを取得し記録することはできたのですが
このままではログの記事記録数が増え続けていく一方であるため、
記事数を5000までとし、古い記録から自動的に削除するようにしたいと思っています。
さまざまなサイトで調べた結果(2)のようにすると
一定数を越えた場合、順番に削除できるようなのですが
うまくいきません。
どのように記述したらいいのか教えていただけませんか？
どうかよろしくお願いいたします。

(1)
open(LOG,">>date/log.txt");
print LOG "$value{'date'} ";
print LOG "$ENV{'REMOTE_HOST'} ";
print LOG "$ENV{'HTTP_USER_AGENT'} ";
print LOG "\n";
close(LOG);

(2)
$max = 5000;
if ($logcount > $max) {
pop @lines;
}

回答No.2

Tacosan · ベストアンサー

あ～, 端的にいえばその通りです. お気を悪くされたのなら申し訳ありません.
つまり, (1) では date/log.txt というファイルにログを保存しているんですが, (2) では @lines という配列にデータを置いていることを想定しています. だから, ファイルと配列との間で適宜データをやり取りしないとだめなんだけど, その辺はちゃんとプログラムにあるのかなぁと気になったので.
date/log.txt の中身は知りませんが, 「1行に 1個のデータ」という形なら
１．date/log.txt から @lines に読み込み
２．@lines に新しい記事を追加する
３．@lines が大きすぎたら (2) のように減らして
４．date/log.txt に @lines の内容を書き戻す
のような処理が必要だと思います.
また, (2) で pop してますが, これは「古い記事ほど配列の後ろ (添え字の大きいところ) にある」という形でデータをもつ必要があります. ここも注意が必要ですね. この順にデータをもつなら unshift/pop を使うことになります. 逆順なら push/shift.
あと蛇足なんだけど, ディレクトリの名前は「date」でいい? ひょっとして「data」だったりしませんか?

お礼

気を悪くするなんてとんでもありません！！
逆に深くお礼を申し上げたいくらいでした。
実はレスをいただいたことで、ヒントをいただきまして
初心者だものでさらに基本から勉強しなおそうと
push shift unshift　popなどについて勉強しました。
その中で、Toacosanがこのレスでご指摘の過程に気づき、
すべてを書きなおし、また１から作りなおしたところ、
ログに記録することも、指定した数まで記録し、
それ以降は古い記事を配列の前から削除していくこともできました。
またdateはdataの表記し間違えでした。
ご迷惑をおかけいたしました。
また、１から勉強しなおすきっかけとヒント、ありがとうございました！！

回答No.1

Tacosan

date/log.txt の内容を変えないとお話にならない.
そのことと (2) の関連は大丈夫ですか?
ちなみに push, pop, unshift, shift の区別はできてますか?

お礼

大丈夫じゃないと思うからこのようにご指摘いただいているのですよね？
そうでなかればこのような書き方はされないと思いますので。
勉強させていただきます。
ご指摘ありがとうございます。