在 Perl 中测试重定向
我希望使用 Perl 检查网页重定向。我尝试过使用 LWP，但它只捕获 503 重定向，而不捕获 htaccess 重定向或 Javascript 重定向。任何帮助将不胜感激。
谢谢
I was hoping to check for webpage redirects using Perl. I've tried using LWP but it only catches 503 redirects and not htaccess redirects or Javascript redirects. Any help would be greatly appreciated.
Thanks
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（2）
LWP 默认为 GET 和 HEAD 处理 3xx 重定向（我认为您正在调用这些 htaccess 重定向），但您可以通过设置 requests_redirectable 选项，或者通过子类化 LWP 并捕获 requests_ok 回调，或者通过调用 simple_request 而不是 request 来修改它。
对于 javascript 重定向，您将需要处理 javascript；我不确定目前最好的方法是什么，但有一些方法可以做到。
您可能还想检查元标记刷新重定向。
LWP defaults to processing 3xx redirects (I think you are calling these htaccess redirects) for GET and HEAD, but you can modify this by setting the requests_redirectable option, or by subclassing LWP and catching the requests_ok callback, or by calling simple_request instead of request.
For javascript redirects, you will need to handle javascript; I'm not sure what the current best means of this is, but there are ways to do it.
You probably also want to check for meta tag refresh redirects.
或者查看 WWW::Mechanize 并测试::WWW::Mechanize。例如，您可以说跟随某个链接或单击某个按钮。然后你可以简单地检查响应状态代码是否匹配
qr/3\d\d/Or take a look at WWW::Mechanize and Test::WWW::Mechanize. You can say for example to follow some link or to click some button. Then you can just simply check if the response status code matches
qr/3\d\d/