Сессия модуля Perl Mechanize снова - PullRequest
Новая
       6

Сессия модуля Perl Mechanize снова

0 голосов
/ 03 декабря 2011

Я пытаюсь использовать модуль perl - mechanize для доступа к веб-странице, но не могу смоделировать результат, когда использую firefox.

шаги firefox, как показано ниже:

1. перейти на сайт http://reserve.apple.com/WebObjects/ProductReservation.woa/wa/reserveProduct?lang=en&country=HK&prelaunch=MC637ZP/A##

2.Выберите «Apple Store, ifc mall» в поле со списком и нажмите кнопку «Далее».

Пожалуйста, смотрите код, как показано ниже, но результат показывает «время сеанса истекло»».Спасибо. 

#!/usr/bin/perl

use strict;
use warnings;

# create a new browser
use WWW::Mechanize;
use WWW::Mechanize::Cached;
use utf8;

my $browser = WWW::Mechanize->new(
        agent => 'Mozilla/5.0 (Windows NT 6.1; rv:8.0) Gecko/20100101 Firefox/8.0',
        autocheck => 1);


$browser->cookie_jar(HTTP::Cookies->new());

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



# tell it to get the main page


my $sURL = 'http://reserve.apple.com/WebObjects/ProductReservation.woa/wa/reserveProduct?lang=en&country=HK&prelaunch=MC637ZP/A##';

$browser->get($sURL);

#go to next page
$browser->form_id('TheForm');
$browser->field('storeNumber','R428');
$browser->submit();


print $browser->title()."\n";
print $browser->uri()."\n";
print $browser->content()."\n";

print "\n";

exit(0);
...