perl - 在 Perl 中测试重定向

Question

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

谢谢

Answer 1

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

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

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

Answer 2

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