ラウンジで１００件ごとに、過去の履歴とするには？

八王子 1998/10/30(金) 01:57:02
とほほさんのラウンジを手を加えたいと思っているのですが、よくわからなくて。
すみません。教えて下さい。
過去の履歴とする分についてなのですが、これを月ごとではなくて、指定した件数ごとに
変更するには、どうしたらいいのでしょうか？
たとえば、100件を越えたら、過去の履歴としたいのですが。
ついでにperlを勉強するのに、もっとも初歩から入れる、お薦めの本があったら、紹介し
て欲しいのです。
よろしくお願いします。

omi [E-Mail] 1998/10/30(金) 21:31:46
ラウンジは一覧表示の時に二月前のサブジェクトを見つけると、
年月を名前にしたフォルダを作り、そこにファイルを移します。

従って、まず、移す先のフォルダ名 $dir を決めておきます。
for ($i = 0; $i <= $#files; $i++) {
   $file = $files[$i];
      ・
   if( $oldestdate < $date ){
　  　$oldestdate = $date;
　　  $oldestFileNo = $i;
  }
}
で最も古いファイルを見つけておく。
if(!$oldmode && !($date =~ $mon1) && !($date =~ $mon2))
を
if(!$oldmode && 100<$#files && $i eq $oldestFileNo )
に変えて、$dirを決める余分な部分を削除します。
サブジェクトの作成より一覧表示の方が多数なので、
毎回一個の削除チェックで十分です。

ところで、あたしは、
解決マークを拡張して、続く,解決,終了,再開,移動にして、
カレントには、続く,解決,再開　サブジェクトを置き、
古いフォルダには、終了,移動サブジェクトを見つけて移すように
しました。分類項目名を古いフォルダ名に使っています。

八王子 1998/10/31(土) 03:09:28
omiさん、お返事ありがとうございました。
結局、不勉強な自分にはよくわかりませんでした。指摘して下さったにもかかわ
らず、移す先のフォルダを決める場所がどこなのか、余分な部分というのがどこ
なのか、なにを削ったらよいのか、何を足したらよいのか、・・・ごめんなさい。
また、勉強し直して質問させていただきます。
お時間をとらせてしまい、すみませんでした。
今後ともよろしくお願いします。

[上に] [前に] [次に]