perl - 尝试使用 lwp::useragent 从网站获取时出现错误 500

Question

请有人使用 lwp::Useragent 帮助我

my $mech = WWW::Mechanize->new(autocheck => 0);
$mech->get($url);
my $content=$mech->content;

但是在尝试获取时出现错误 500https://camelcamelcamel.com/

Answer 1

该站点似乎阻止了来自“不良”（不受欢迎的）用户代理的请求。您可以使用参数 for或通过调用方法使WWW::Mechanize( LWP::UserAgent) 将自己呈现为另一个用户代理。完整的 IE8 识别字符串解决了这个问题。agentnewagent

我已经使用Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1. [由Firefox的“用户代理切换器”插件
列出]

用户代理短列表（xml 文件）
用户代理长列表

警告
网站可能会使用或选择使用其他方式来阻止不需要的请求。