访问网站 - WWW::Mechanize

Question

我尝试使用下面的代码来获取网站 htm 源代码并且它有效。但是，当我访问网站 http://reserve.apple.com/WebObjects/ 时，我无法得到结果ProductReservation.woa/wa/reserveProduct 使用如下代码。但是，我可以正确使用浏览器访问该页面。您能给我一些解决这个问题的提示或技巧吗？谢谢。

#!/usr/bin/perl

use strict;
use warnings;

# create a new browser
use WWW::Mechanize;
my $browser = WWW::Mechanize->new();

# tell it to get the main page

my $sURL = 'http://www.apple.com';

#my $sURL = 'http://reserve.apple.com/WebObjects/ProductReservation.woa/wa/reserveProduct';

$browser->get($sURL);

print $browser->content;

exit(0);

Answer 1

这是一种奇怪的行为，但是您想要检索的网址上的站点需要定义以下标头：定义：
接受、接受编码、接受语言、接受字符集、Cookie。

否则服务器根本不响应。

您可以轻松地做到这一点，只需在“获取”请求之前插入以下代码：

$browser->add_header(
    "Accept"          => "",
    "Accept-Encoding" => "",
    "Accept-Language" => "",
    "Accept-Charset"  => "",
    "Cookie"          => ""
);

您可以插入一些实际值，而不是空字段，但这也有效。