08/02/24 06:46:40
>>936
ダウソしてソース見た。分かった事は下記の通り。
・ データファイルには 日付<TAB>内容 が1件1行で入っていて、レス番は入ってない
・ 最大記事数を超えた分はデータファイルから消える
・ 新しいレスはファイルの先頭に追加される(古いレスほど後ろにある)
・ 表示する時に@DATA（配列）に全レスを読み込んでいる($DATA[0]がファイル内のレス総数)
・ sub print 内では、$begin、$end、$iにファイルの先頭から何行目かを示す数値が入る
とりあえず考えてみた。
試してないから、ちゃんと動くかどうかは保証しない。
どんなレス番の振り方をしたいかわからんので思いつくのを並べてみた。
1. 表示してるページ内でのレス番
97行目 print "[$date] ". ($end - $begin - $i + 1) .". $text\n";
2. ファイルに残ってるレス総数中のレス番
97行目 print "[$date] ". ($DATA[0] - $begin - $i +1) .". $text\n";
3. それまでに書かれた全部の中でのレス番
何行も修正しなきゃならんしデータフォーマットも変わる(=今使ってるとしたらデータ読めなくなる)から、
最初からレス番機能が付いてる別のソフト探したほうがヨサゲ。
どうしてもってんなら考えてやらんこともない。