Acceder al sitio web - WWW :: Mecanizar

Question

Intento usar el código de la siguiente manera para obtener la fuente de htm del sitio web y funciona. Sin embargo, no puedo obtener el resultado cuando visito el sitio web http://reserve.apple.com/WebObjects/ProductReservation.woa/wa/reserveProduct usando el código siguiente. Pero, puedo acceder a esta página usando el navegador correctamente. ¿Me darías algunas pistas o consejos para solucionar este problema? Gracias.

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

Es un comportamiento extraño, pero el sitio en el URL que desea recuperar requiere siguientes cabeceras ser definido : acepta, Accept-Encoding, Accept-Language, Accept-Charset, Cookie.

De lo contrario, el servidor no responde en absoluto.

Usted puede hacer fácil el código siguiente justo antes de la inserción de su petición "obtener":

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

En lugar de campos vacíos se pueden insertar algunos valores reales, pero esto funciona también.