Блог

Я пытаюсь использовать приведенный ниже код, чтобы получить исходный код 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);
  

Это странное поведение, но для URL-адреса сайта, который вы хотите получить, необходимо определить следующие заголовки: Accept, Accept-Encoding, Accept-Language, Accept-Charset, Cookie.

В противном случае сервер вообще не отвечает.

Вы можете легко сделать это, просто вставив следующий код перед вашим запросом «get»:

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

Вместо пустых полей вы можете вставить некоторые реальные значения, но это тоже работает.