Strona dostępu - WWW :: Mechanize

Question

Próbuję użyć kodu jak poniżej, aby uzyskać źródło htm witryny i działa. Jednak nie mogę uzyskać wyniku, gdy odwiedzam stronę internetową http://reserve.apple.com/WebObjects/ProductReservation.woa/wa/reserveProduct, używając kodu jak poniżej. Ale mogę uzyskać dostęp do tej strony za pomocą przeglądarki poprawnie. Czy dasz mi wskazówki lub wskazówki, jak rozwiązać ten problem? Dziękuję Ci.

#!/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

To dziwne zachowanie, ale strona pod adresem URL chcesz odzyskać wymaga następujących nagłówków być zdefiniowane: Accept, Accept-Encoding, Accept-Language, Accept-Charset, Cookie.

W przeciwnym razie serwer w ogóle nie odpowiada.

Można łatwo to zrobić tylko wstawianie następujący kod przed „get” żądanie:

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

Zamiast pustych pól można wstawić jakieś prawdziwe wartości, ale to działa też.