cgi＋htmlテンプレート使用

Question

「cgiファイルからhtmファイルを読み込んで、部分的に差し替えの上、再度htmファイルに書き出す」ということを考えています。

で、htmファイルのソースの中に<-- start --><-- end -->のようなタグを仕込んでおいて、cgiの方からその間の部分に情報を挿入するという形を考えています。
具体的には、

open(IN, $htm_file) || error("読込エラー");
print "Content-type: text/html\n\n";

while (<IN>) {
if (.....<--start-->があったなら......) {
.......$jouhouを挿入する........
}
........................................
}
close(IN);

のような感じを漠然と想定しているのですが、どんなもんでしょうか。どうやってやればイイのか、検討がつかないもので。うまいやり方を、お分かりの方がいましたら教えていただけませんか。

steel_gray · Accepted Answer

書いた本人にも100%理解できていないのでうまく説明できる自信もありませんが・・・

((?:(?!).)*)
を内側のカッコから分解すると

(?!)
→ ではない

(?:～.)
→ 任意の一字（後方参照を作らないグループ化）

(～*)
→ 0回以上の繰り返し

要約すると
ではない任意一字の0回以上の繰り返し→
(の後ろから)までの間の0桁以上の任意の文字列。

steel_gray · Answer

> $buf =~ s/()((?:(?!).)*)()/$1$data[$count++]$3/sg; > の１行について、くわしく解説いただけないでしょうか。やろうとしているのは何かを $data[ｎ番目] に置換しています。細かい事についてはとにかく正規表現について読み漁ってください。参考URLに必要なことは全部書いてあると思います。キーワードは・置換・正規表現・s///演算子用オプション、gとs ・文字列のグループ化と後方参照・拡張構文、(?:..)と(?!式) 等々。。。参考URL：http://www.rfs.jp/sitebuilder/perl/02/09.html

steel_gray · Answer

思いっきり簡単に書くと以下のようになります。（正規表現のあたりはもっと簡潔に書けるかもしれませんがあまり得意でないので。）あとは、置換するデータを入力フォームから受取るとかCGIとしての一般的な体裁を加えれば実用的になるかと思います。 #!/usr/bin/perl my @data = qw{123 ABCD あいうえお};# 置換するデータ my $count = 0; #読み込み open IN,'hoge.html'; read IN, my $buf, -s 'hoge.html'; close IN; #置換 $buf =~ s/()((?:(?!).)*)()/$1$data[$count++]$3/sg; #書き出し open OUT,'> hoge.html'; print OUT $buf; close OUT; #終了メッセージ print <<__MESSAGE__; Content-type: text/html; 完了

完了

$count 置換完了

__MESSAGE__ なお、テンプレートを扱うといっても、本件ではそのテンプレート自体を更新しようとしている（置換のための制御文を残さないといけない）のでHTML::Templateモジュールはあまり向いていないと思います。もちろん、テンプレートと表示/更新するファイルを分ければ問題ないのですが。

steel_gray · Answer

ご本人がおっしゃるとおり漠然としすぎてあまり具体的な回答は難しいのですが、start / end が一組だけなら正規表現を使った置換でも充分だと思います。

あと、参考URL(のa-Update)のような配布物もあるので検討してみては？（条件によっては有料です。）

話はそれますが、
<-- start --><-- end -->よりも
のほうがHTMLとしては格好がいいかと思います。

参考URL：http://www.appleple.com/cgi/

you-m · Answer

いわゆるテンプレートライブラリというものがあります。
Perlの場合は、HTML::Templateモジュール が有名ですかね。CPANで探すと似たようなモジュールがたくさん見つかります。車輪の再発明を嫌うならこういうものを活用するのがいいと思います。
自作のライブラリをするのであっても、こういう既成のライブラリのソースは参考になると思いますよ。

解説系の情報もありますが、たいてい個人サイトなので、ここには載せられません。サーチエンジンで検索してみてください。

cgi＋htmlテンプレート使用

書いた本人にも100%理解できていないのでうまく説明できる自信もありませんが・・・

> $buf =~ s/()((?:(?!).)*)()/$1$data[$count++]$3/sg;

この回答への補足

思いっきり簡単に書くと以下のようになります。

この回答への補足

ご本人がおっしゃるとおり漠然としすぎてあまり具体的な回答は難しいのですが、start / end が一組だけなら正規表現を使った置換でも充分だと思います。

いわゆるテンプレートライブラリというものがあります。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング