开发学院服务器云计算 Perl 和 Amazon 云，第 5 部分：了解完整 mod_per... 阅读

Perl 和 Amazon 云，第 5 部分：了解完整 mod_perl 站点的模板

　2010-02-04 00:00:00　来源：WEB开发网　　　

核心提示： 除了明显糟糕的 HTML 外，该模板类似于 s3uploaded.tmpl，Perl 和 Amazon 云，第 5 部分：了解完整 mod_perl 站点的模板(5)，通过使用这个模板，代码重用不再是问题

除了明显糟糕的 HTML 外，该模板类似于 s3uploaded.tmpl。通过使用这个模板，代码重用不再是问题。

browse.tmpl

该模板可以浏览照片和评论。

清单 5. 使用 browse.tmpl 浏览照片和评论

[%　SET　images　=　fimages()　%]　 [%　SET　comments　=　fcomments()　%]　 <html>　　<head>　　　<title>Browse</title>　　　<meta　http-equiv="Content-Type"　content="text/html;　charset=UTF-8"　/>　　</head>　　<body>　　　<ul>　　　　[%　FOR　ik　IN　images.keys　%]　　　　<li>　　　　　　[%　SET　image　=　images.$ik　%]　　　　　　[%　image.name　%]<br>　　　　　　<img　src="[%　image.url　%]"><br>　　　　　　[%　IF　image.bucket　%](in　S3)[%　END　%]<br>　　　　　　uploaded　by　[%　image.user　%]<br>　　　　　　<form　action="/browse"　method="post"　enctype="multipart/form-data">　　　　　　　<input　type="hidden"　name="deleteimageid"　value="[%　ik　%]">　　　　　　　<input　type="submit"　value="Delete">　　　　　　</form>　　　　　　<form　action="/browse"　method="post"　enctype="multipart/form-data">　　　　　　　<input　type="hidden"　name="imageid"　value="[%　ik　%]">　　　　　　　Change　Image　Name:　　　　　　　<input　name="name"　type="text"　value="[%　image.name|html　%]">　　　　　　　<input　type="submit"　value="Rename">　　　　　　</form>　　　　　　[%　INCLUDE　comments.tmpl　ik=ik　comments=comments　%]　　　　　　<form　action="/browse"　method="post"　enctype="multipart/form-data">　　　　　　　<input　type="hidden"　name="user"　value="[%　username　%]">　　　　　　　<input　type="hidden"　name="refimageid"　value="[%　ik　%]">　　　　　　　Enter　a　Comment　(as　user　[%　username　%]):　　　　　　　<input　name="comment"　type="text">　　　　　　　<input　type="submit"　value="Comment">　　　　　　</form>　　　　　　<form　action="/browse"　method="post"　enctype="multipart/form-data">　　　　　　　<input　type="hidden"　name="refimageid"　value="[%　ik　%]">　　　　　　　Enter　Anonymous　Comment:　　　　　　　<input　name="comment"　type="text">　　　　　　　<input　type="submit"　value="Comment">　　　　　　</form>　　　　</li>　　　　[%　END　%]　　　</ul>　　</body>　 </html>　