在 Perl 中测试重定向答案

【问题标题】：Testing for redirects in Perl在 Perl 中测试重定向
【发布时间】：2011-08-30 21:25:03
【问题描述】：

我希望使用 Perl 检查网页重定向。我试过使用 LWP，但它只捕获 503 重定向，而不是 htaccess 重定向或 Javascript 重定向。任何帮助将不胜感激。

谢谢

【问题讨论】：

【解决方案1】：

LWP 默认为 GET 和 HEAD 处理 3xx 重定向（我认为您正在调用这些 htaccess 重定向），但您可以通过设置 requests_redirectable 选项，或通过子类化 LWP 并捕获 requests_ok 回调，或通过调用 simple_request 来修改它请求。

对于 javascript 重定向，您需要处理 javascript；我不确定目前最好的方法是什么，但有办法做到这一点。

您可能还想检查元标记刷新重定向。

【讨论】：

【解决方案2】：

或查看WWW::Mechanize 和Test::WWW::Mechanize。例如，您可以说跟随某个链接或单击某个按钮。然后你可以简单地检查响应状态码是否匹配qr/3\d\d/

【讨论】：