返信記事付きログファイルの表示
以下のような掲示板のログファイルがあります。
2<>2への返信記事2つ目<><>
1<>1への返信記事4つ目<><>
1<>1への返信記事3つ目<><>
2<>2への返信記事<><>
1<>1への返信記事2つ目<><>
1<>1への返信記事<><>
2<>親記事<>2.jpg<>
1<>親記事<>1.jpg<>
親記事もレス記事も同じログファイルに下から投稿順に記録されていきます。
親記事には必ず画像が付きます。
これを表示するだけの、ごく単純なCGIを作っているのですが、親記事も返信記事も独立して表示されてしまいます。
#!/usr/local/bin/perl
require './jcode.pl';
$log = "./log.txt";
$title = 'test';
print "Content-type: text/html; charset=euc-jp\n\n";
print <<EOM;
<html>
<head>
<title>$title</title>
</head>
<body>
EOM
open(OUT,"$log");
@DATA = <OUT>;
close(OUT);
foreach(@DATA){
($num,$body,$img) = split(/<>/,$_);
if($img ne ""){
$img = "<p><img src=\"$img\"></p>";
}
print <<EOM;
<h1>$num</h1>
<p>$body</p>
$img
<p>$res</p><hr>
EOM
}
どうすれば親記事番号と返信記事番号を関連付けて、$bodyを$resに出来るのでしょうか？
お礼
ご回答ありがとうございます。