くだすれPerl（超初心者用）

くだすれPerl（超初心者用） at PHP

937:nobodyさん
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. それまでに書かれた全部の中でのレス番
　　何行も修正しなきゃならんしデータフォーマットも変わる(=今使ってるとしたらデータ読めなくなる)から、
　　最初からレス番機能が付いてる別のソフト探したほうがヨサゲ。
　　どうしてもってんなら考えてやらんこともない。

次ページ

続きを表示

1を表示