07/02/26 15:24:29
perlの質問です。
ある掲示板に二重投稿防止機能がついていなかったので、
それに防止機能をつけたいと思いました。
データは
2(ツリー数)<>4(最終記事№)
2(ツリー№)<>投稿者<>投稿日時<>子記事なら親記事№<>2(総合№)<>コメント<> ※親記事2
<>投稿者<>投稿日時<>2(親記事№)<>4(総合№)<>コメント<> ※親記事2への子記事
1<>投稿者<>投稿日時<>子記事なら親記事№<>1(総合№)<>コメント<> ※親記事1
<>投稿者<>投稿日時<>1(親記事№)<>3(総合№)<>コメント<> ※親記事1への子記事・
・
・
と繋がります。
最終投稿記事を探すには、最終記事№のある記事を抽出する必要がある。
それにはforeachを使えばいいんじゃないか、というところまではたどり着きました。
open(IN,"$bbslog") || &error("Open Error : $bbslogfile");
@lines =<IN>;
までは考え付いたのですが、左から五番目のデータを探して
最終記事№（$allcomに代入済み）と一致するデータを抽出するには、
どうしたらいいでしょうか。