如何解决在Perl中测试重定向
| 我希望使用Perl检查网页重定向。我尝试使用LWP,但它只能捕获503重定向,而不能捕获htaccess重定向或Javascript重定向。任何帮助将不胜感激。 谢谢解决方法
LWP默认会为GET和HEAD处理3xx重定向(我认为您正在调用这些htaccess重定向),但是您可以通过设置requests_redirectable选项,或者通过将LWP子类化并捕获requests_ok回调,或者通过调用simple_request而不是request来修改它。
对于javascript重定向,您将需要处理javascript;我不确定目前最好的方法是什么,但是有很多方法可以做到。
您可能还想检查元标记刷新重定向。
,或看看WWW :: Mechanize和Test :: WWW :: Mechanize。您可以说例如跟随某个链接或单击某个按钮。然后,您只需检查响应状态代码是否与“ 0”匹配
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。