HTML::Template ﾓｼﾞｭｰﾙのｴﾗｰ[Perl]
(2016-02-14 04:36:45) by shinoda
< ﾍﾟｰｼﾞ移動: 1 2 >
先月から今月にかけて､夜間や休みの日に､古い(それこそ10年くらい前に作ったものとか)Perl CGI のｿｰｽの修正をしてて､まあ､自分で作ったものはなんとかなるんだけど､外注さんに頼んで作ったものとか､自分のやり方とは違ってたりしてﾊﾏるわぁ(^^;
例えば､俺はﾃﾝﾌﾟﾚｰﾄの HTML ﾌｧｲﾙに動的な値を貼り付ける時に自前で処理を書くんだけど(まあ､正規表現で値を書き込む箇所のﾏｰｶｰになる文字列見つけて置換するだけだし)､以前よく使っていた外注さんは HTML::Template ﾓｼﾞｭｰﾙを使っていた｡
PHP の Smarty みたいな高機能ﾃﾝﾌﾟﾚｰﾄｴﾝｼﾞﾝね｡
ﾃﾝﾌﾟﾚｰﾄｴﾝｼﾞﾝを使うと､ちょっとした HTML のﾃﾞｻﾞｲﾝ変更の時にﾌﾟﾛｸﾞﾗﾑｿｰｽに手を入れなくても HTML ﾃﾝﾌﾟﾚｰﾄだけ直せばどうにかなるので便利なことも多いんだけど､うちの仕事だと｢どっちみちﾌﾟﾛｸﾞﾗﾑも直さないといけないｹｰｽ｣が多いんで､結局｢ﾌﾟﾛｸﾞﾗﾑ修正｣｢HTML::Template のﾙｰﾙに沿ったﾃﾝﾌﾟﾚｰﾄの修正｣の両方が発生しちゃうからあんまり工数の削減や修正のしやすさにつながらないんだよね｡
ﾃﾝﾌﾟﾚｰﾄｴﾝｼﾞﾝ厨の怨嗟の声が聞こえてきそうだけど(笑)
ﾃﾝﾌﾟﾚｰﾄｴﾝｼﾞﾝに限らず､こういうのを使う/使わないはｹｰｽ･ﾊﾞｲ･ｹｰｽなのよ｡使った方がいいのに使わないのも愚かだけど､どんなｹｰｽでも､常に HTML::Template ﾓｼﾞｭｰﾙを使うというのも愚かなこと｡
ま､そういうわけで､俺自身は｢別に使わなくていいんじゃないの｣というｹｰｽが多いから､今まで使ったことがほとんどなくて(まったく無いわけじゃないけど)､たまに使うと(って､ほとんど他人が作ったもののﾒﾝﾃﾅﾝｽだけど)下らないことでﾊﾏっちゃうんよね(^^;
今日も､仕様変更にともなってﾃﾝﾌﾟﾚｰﾄ HTML の不要な部分をﾊﾞｻｯと削ったら､いきなり Internal Server Error が出始めて､なんじゃ?とﾛｸﾞを見たら･･･
[Sat Feb 13 18:13:42 2016] [error] [client 202.XXX.XXX.XXX] HTML::Template->new() : found </TMPL_LOOP> with no matching <TMPL_LOOP> at template.html : line 133! at HTML/Template.pm line 1558., referer: http://exsample.co.jp/cgi-bin/hogehoge.cgi
[Sat Feb 13 18:13:42 2016] [error] [client 202.XXX.XXX.XXX] Premature end of script headers: hogehoge.cgi, referer: http://exsample.co.jp/cgi-bin/hogehoge.cgi
ああ･･･<TMPL_LOOP> と </TMPL_LOOP> がｱﾝﾏｯﾁだとおっしゃってる(^^;
確かに､
<!--tmpl_loop name="hogehoge_list"-->
〜ほげほげ〜
<!--/tmpl_loop-->
の､
<!--tmpl_loop name="hogehoge_list"-->
だけ消して､
<!--/tmpl_loop-->
が残ってるわぁ(^^;気づかんかった(^^;
で､素直に修正すればよかったんだけど､あんま日頃 HTML::Template ﾓｼﾞｭｰﾙ使わないんで､Template ｸﾗｽをｲﾝｽﾀﾝｽ化する時､
my $template = new HTML::Template(
filename => $filename,
die_on_bad_params => 0,
path => DEF_TMP_DIR
);
みたいに die_on_bad_params ｵﾌﾟｼｮﾝに 0 を与えておけば､ｴﾗｰは全て無視をしてﾍﾞｽﾄｴﾌｫｰﾄな実行をしてくれるのだと思い込んでて､なんかｲﾝｽﾀﾝｽ化のｵﾌﾟｼｮﾝの組み合わせがおかしいんじゃないかとか､変なところで悩んでﾊﾏってしまった(^^;
die_on_bad_params は読んで字のごとく､｢ﾃﾝﾌﾟﾚｰﾄで定義していないﾊﾟﾗﾒｰﾀを処理しようとしても無視する｣ってだけのことなのね(^^;
つまり､hoge というﾊﾟﾗﾒｰﾀで指定された部分を置換しようとした時､実際にはﾃﾝﾌﾟﾚｰﾄ上に