スキン式掲示板のしくみ

質問

スキン式掲示板の仕組みを知りたいです。
一通り、掲示板や日記といえるようなスクリプトをperlで組んだ経験はあるのですが、スキンをhtmlファイルとして読み込むやつです。
KENT WEB さんのサイト等のものを解読しようと試みたのですが、まだプログラミング経験も浅く、解読できませんでした。

大まかな原理だけでもわかる方がいらしたら教えていただけないでしょうか？

いろいろなスキン式掲示板をみると、htmlファイルに
<!-- START xxx -->
…
<!-- END xxx -->
という感じでブロックわけをしているのをよく見かけますが、
一体全体どういった処理を行っているのでしょうか？

…中に、もちろん名前が来るべきところの印等がありますが、(KENT WEB だったら、!name!とか）そこに、記事ごとにデータを渡す仕組みがよくわかりません。
また、…中にさらに入れ子構造をしたいとき(レス記事を扱いたいとき）の仕組みをぜひ知りたいです。

回答No.2

noname#37358 · ベストアンサー

続いて、レス式の場合ですが、

スキンファイルは、

# 固定部分
<!--thread-->
# 親記事
[$thread] スレッド名: $title
[$id] $name さん
メッセージ: $message
<!--res-->
# 子記事
[$id] $name さん
メッセージ: $message
<!--res-->
...
<!--thread-->
# 固定部分

な感じで、保存データ形式が、

スレッド番号,スレッドタイトル,記事番号,名前,メッセージ<>記事番号,名前,メッセージ<>記事番号,名前,メッセージ ...
スレッド番号,スレッドタイトル,記事番号,名前,メッセージ<>記事番号,名前,メッセージ<>記事番号,名前,メッセージ ...
スレッド番号,スレッドタイトル,記事番号,名前,メッセージ<>記事番号,名前,メッセージ<>記事番号,名前,メッセージ ...
...

な感じだとすると、

# ログファイル読み込み (省略)
...

my ($head, $body, $foot) = split (/<!--thread-->/, $skin_file);

my ($bodies) = '';
foreach (@log) {

# 親記事と子記事に分離
my ($parent, @children) = split (/<>/, $_);

my ($res_head, $res_body, $res_foot) = split (/<!--res-->/, $body);

# 親記事データ分離
my ($thread, $title, $id, $name, $title, $message) = split (/,/, $parent);

# 親記事データ置換
$res_head =~ s/\$thread/$thread/gi;
$res_head =~ s/\$title/$title/gi;
...

my ($res_bodies) = '';
foreach (@children) {

# 子記事データ分離
my ($id, $name, $title, $message) = split (/,/, $_);

my ($res) = $res_body; # スキンコピー

# 子記事データ置換
$res =~ s/\$id/$id/gi;
$res =~ s/\$name/$name/gi;
...

$res_bodies .= $res; # 記事データ連結

}

$bodies .= "$res_head$res_bodies$res_foot"; # 記事データ連結

}

で、最後に、"$head$bodies$foot"を出力する。

という感じになります。

回答No.1

noname#37358

私が解読を試みた事があるのは、「apeboard」なのでKENT WEBのとはちょっと違うと思いますが、回答させていただきます。

記事ごとにデータを渡す仕組みですが、大まかに言うと、

# 固定部分
...

<!--article-->

# 繰り返し部分
[$id] $name さん
タイトル: $title
メッセージ: $message

<!--article-->

# 固定部分
...

というスキンがあるとすると、

my ($head, $body, $foot) = split (/<!--article-->/, $skin_file);

で、まずはスキンを分離しておきます。

記事データが、

記事番号,名前,タイトル,メッセージ
記事番号,名前,タイトル,メッセージ
記事番号,名前,タイトル,メッセージ
...

な感じの、保存形式だとすると

open (LOG, $log_file);
@log = <LOG>;
close (LOG);
chomp @log; # 改行文字切り落とし

で、ファイルから読み込み、記事ごとに配列に格納しておいて、

my ($bodies) = '';
foreach (@log) {

# データ分離
my ($id, $name, $title, $message) = split (/,/, $_);

my ($article) = $body; # スキンコピー

# データ置換
$article =~ s/\$id/$id/gi;
$article =~ s/\$name/$name/gi;
$article =~ s/\$title/$title/gi;
$article =~ s/\$message/$message/gi;

$bodies .= $article; # 記事データ連結

}

で、最後に、"$head$bodies$foot"を出力する。

という感じの仕組みになります。

参考URL：

http://www.2apes.com/