Perl 和 Amazon 云，第 3 部分：上传图像并创建、编辑和删除评论

核心提示： 脚本使用 CPAN Data::UUID 模块生成新的惟一标识符， 脚本在处理错误方面有些随意，Perl 和 Amazon 云，第 3 部分：上传图像并创建、编辑和删除评论(5)，在任何可能的情况下都会选择 die()，这种方式非常懒惰并且叫人看不起，这样才可以编写一个真正的程序，这个脚本也不应

脚本使用 CPAN Data::UUID 模块生成新的惟一标识符。

脚本在处理错误方面有些随意，在任何可能的情况下都会选择 die()。这种方式非常懒惰并且叫人看不起，因此您不应选择这样做，除非您在撰写文章并向人们展示写文章的程序员有多么糟糕。

最后一个任务是提交 SELECT 语句并删除一个项。我将展示如何实现它们，因为这些任务很简单，并且您稍后就将用到。

要列出照片，需要像清单 4 一样调用脚本：

清单 4. 列出照片

./simple_go.pl　-l　-i　--ak=accesskey　--sk=secretkey　

注意：确保您运行脚本的机器不会被其他人使用。他们会查看进程列表并获知您的 Amazon 秘密密匙。类似地，如果位于一个保存历史的 shell 中，您的秘密密匙将出现在您的历史文件中。更好的方法是传递一个文件名并从该文件中获得密码，但是为了保持简单性，我没有实现这种方法。

要列出评论：

清单 5. 列出评论

./simple_go.pl　-l　-c　--ak=accesskey　--sk=secretkey　

目前为止，一切都很简单。脚本在内部调用 $service->select() 方法，解析结果，使用 show_list() 输出数据。执行所有操作的前提就是键只有一个值（注意我们在 put() 方法中指定 Replace=true），因此这并不是一个通用 SimpleDB 脚本。

为什么不选择通用脚本？我们不需要它。现在让我们使用一个简单的解决方法。如果需要多个值，可以稍后采用脚本或编写些新代码。这个脚本是创建网站数据库结构的基础。

不要在实际站点中尝试使用这个脚本（“我将仅调用 system() 并让错误进入到日志文件中”）。是的，它包括几百行代码并且可以工作，但是必须毫不犹豫地扔掉所有原型，这样才可以编写一个真正的程序。这个脚本也不应该有例外，即使我们已经有点喜欢上它以一个空格为缩进的散漫（或者说 “有创意”）布局。