在perl中没有“确认表单重新提交”的刷新浏览器

Question

我有一个 perl 脚本，它打印出 HTML 代码并根据 HTML 页面中的用户输入运行操作。我希望能够禁用“确认表单重新提交”警告并防止用户重复上次运行的命令。我在 php 中看到了一些解决此问题的帖子，但不确定如何使用 perl 来解决。

谢谢！

Answer 1

防止这种情况的常用技术是Post/Get Redirect pattern。

这不会阻止浏览器的行为，但它会在成功 POST 后将用户重定向到新页面，因此如果他们刷新，他们不会重复 POST，而是重复 GET，这不会引起警告。

这是一个流程示例：

• 获取“产品/创建”
• 用户输入一些信息
• 发布“产品/创建”
• 验证失败，重新显示带有警告的表单 - 用户更正输入
• 发布“产品/创建”
• 验证通过，项目保存重定向，使用 GET 到“Products/View/5”
• 用户刷新页面，这会导致无害的 GET "Products/View/5"

要发出重定向，您可以使用：

use CGI;
my $query=new CGI;
print $query->redirect('http://www.example.com/newpage');