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

核心提示： 您可以使用这个模板浏览所有的照片和评论，但是这样做不太有效，Perl 和 Amazon 云，第 5 部分：了解完整 mod_perl 站点的模板(6)，而且在拥有数千照片和评论的真实网站中，这个模板几乎肯定会失效， 结束语这份共 5 部分的系列文章现在已经全部结束，您在本文中了解了完整 mod_

您可以使用这个模板浏览所有的照片和评论。但是这样做不太有效，而且在拥有数千照片和评论的真实网站中，这个模板几乎肯定会失效。您需要使用 SimpleDB 的优秀的 NextToken 分页模式（在这里 SimpleDB 实用函数没有有效地使用该分页模式）或您自己的工具对照片设置分页，然后只获得将要显示的照片的评论。

您肯定希望只在需要的时候收到评论。SimpleDB 请求的开销很大。因此模板每次都需要将评论传递到 comments.tmpl 模板。

模板使用了 Template Toolkit FOR 循环来遍历（未分类的）照片（如果需要进行分类，最好在 Template Toolkit 环境之外使用 Perl 代码完成这个操作）。这里要求使用照片键来选择与之匹配的评论。对于每张照片，您将显示照片名、URL、S3 状态、所有者。然后显示各种表单来删除照片、修改照片名或以匿名方式或作为用户发布评论。所有操作都很简单。

最后，comments.tmpl 模板和（INCLUDE）一些参数被包含在一起 — ik 是照片键而 comments 是评论列表 — 表示无论模板生成什么内容，都将针对每张照片从照片列表中删除。

comments.tmpl

该模板针对某张照片递归地浏览评论（遍历评论）。

清单 6. 使用 comments.tmpl 遍历评论

[%　IF　parent　%]　
　[%　SET　thread　=　comments.$ik.$parent　%]　
[%　ELSE　%]　
　[%　SET　thread　=　comments.$ik.noparent　%]　
[%　END　%]　
　
<ul>　
[%　FOR　ck　IN　thread.keys　%]　
　[%　SET　comment　=　thread.$ck　%]　
　<li>[%　comment.comment　%]　(by　[%　IF　comment.user　%][%　comment.user　%]　
　　　[%　ELSE　%]Anonymous[%　END　%])<br>　
　　<form　action="/browse"　method="post"　enctype="multipart/form-data">　
　　　<input　type="hidden"　name="deletecommentid"　value="[%　ck　%]">　
　　　<input　type="submit"　value="Delete">　
　　</form>　
　　<form　action="/browse"　method="post"　enctype="multipart/form-data">　
　　　<input　type="hidden"　name="commentid"　value="[%　ck　%]">　
　　　Edit　Comment:　
　　　<input　name="comment"　type="text"　value="[%　comment.comment|html　%]">　
　　　<input　type="submit"　value="Edit">　
　　</form>　
　　<form　action="/browse"　method="post"　enctype="multipart/form-data">　
　　　<input　type="hidden"　name="user"　value="[%　username　%]">　
　　　<input　type="hidden"　name="refimageid"　value="[%　ik　%]">　
　　　<input　type="hidden"　name="refcommentid"　value="[%　ck　%]">　
　　　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　%]">　
　　　<input　type="hidden"　name="refcommentid"　value="[%　ck　%]">　
　　　Enter　Anonymous　Comment:　
　　　<input　name="comment"　type="text">　
　　　<input　type="submit"　value="Comment">　
　　</form>　
　　[%　INCLUDE　comments.tmpl　ik=ik　comments=comments　parent=ck　%]　
　</li>　
[%　END　%]　
</ul>　

我将最好的、最困难的代码留到了最后。

对于照片键，该模板将查找该照片的所有评论，照片的父元素为一个特定的评论键。

对于相关的每张照片（具有给定的父元素或没有父元素，视情况而定），模板将显示评论本身，紧接着显示 HTML 表单来删除评论、进行编辑或输入新评论（以用户名或匿名的方式）。这与 browse.tmpl 中的表单几乎完全相同，惟一不同的是这里包含了 refcommentid 参数。

接下来是比较棘手的部分，这个模板针对找到的每个评论包含它自身，每次将 parent 设置为评论键的值。因此在伪语言（Template Toolkit）中使用递归，从而在 Perl 下运行的布局语言（HTML）中生成递归。

结束语

这份共 5 部分的系列文章现在已经全部结束。您在本文中了解了完整 mod_perl 站点的模板 — 使用了来自第 2 部分和第 3 部分的内容以及第 4 部分生成的代码。该站点使用 Template Toolkit、S3 和 SimpleDB 提供了照片上传、浏览、编辑、删除以及添加评论功能。