在Perl中测试重定向

时间:2011-05-23 05:26:16

标签: perl redirect web-crawler lwp http-status-code-503

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

由于

2 个答案:

答案 0 :(得分:4)

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

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

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

答案 1 :(得分:0)

或者查看WWW::MechanizeTest::WWW::Mechanize。例如,您可以说要关注某些链接或单击某个按钮。然后,您只需检查响应状态代码是否与qr/3\d\d/

匹配