Как разместить форму с WWW :: Mechanize (ajax) - PullRequest
Новая
       66

Как разместить форму с WWW :: Mechanize (ajax)

1 голос
/ 25 февраля 2020

Я опубликовал несколько дней go о публикации формы путем изменения размера страницы. Может кто-нибудь помочь с шагами. Я включаю дамп формы и код, который я использую для публикации. Вот код для получения первой страницы, размер которой по умолчанию равен 30 игрокам, а затем я собираюсь опубликовать форму, чтобы изменить размер страницы на 500. 

my $mech = WWW::Mechanize->new();
my $url = "https://www.fangraphs.com/projections.aspx?pos=all&stats=bat&type=steamer&team=0&lg=all&players=0";
$mech->get($url);
print Dumper($mech->forms());

$VAR1 = bless( {
                 'default_charset' => 'UTF-8',
                 'enctype' => 'application/x-www-form-urlencoded',
                 'accept_charset' => 'UNKNOWN',
                 'action' => bless( do{\(my $o = 'https://www.fangraphs.com/projections.aspx?pos=all&stats=bat&type=steamer&team=0&lg=all&players=0')}, 'URI::https' ),
                 'method' => 'POST',
                 'attr' => {
                             'id' => 'form1',
                             'method' => 'post'
                           },
                 'inputs' => [
                               bless( {
                                        'readonly' => 1,
                                        '/' => '/',
                                        'value_name' => '',
                                        'value' => '',
                                        'name' => 'RadScriptManager1_TSM',
                                        'id' => 'RadScriptManager1_TSM',
                                        'type' => 'hidden'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        '/' => '/',
                                        'value' => '30',
                                        'name' => 'ProjectionBoard1$dg1$ctl00$ctl02$ctl00$PageSizeComboBox',
                                        'readonly' => 'readonly',
                                        'value_name' => '',
                                        'type' => 'text',
                                        'class' => 'rcbInput radPreventDecorate',
                                        'id' => 'ProjectionBoard1_dg1_ctl00_ctl02_ctl00_PageSizeComboBox_Input'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'tabindex' => '-1',
                                        'class' => 'rcbActionButton',
                                        'type' => 'button'
                                      }, 'HTML::Form::SubmitInput' ),
                               bless( {
                                        'readonly' => 1,
                                        '/' => '/',
                                        'value_name' => '',
                                        'name' => 'ProjectionBoard1_dg1_ctl00_ctl03_ctl01_PageSizeComboBox_ClientState',
                                        'id' => 'ProjectionBoard1_dg1_ctl00_ctl03_ctl01_PageSizeComboBox_ClientState',
                                        'type' => 'hidden'
                                      }, 'HTML::Form::TextInput' ),
                             ]
               }, 'HTML::Form' );

Затем я пытаюсь отправить форму со следующим: 

$mech->submit_form(
    form_id => 'form1',
    with_fields => {
        name    => 'ProjectionBoard1$dg1$ctl00$ctl03$ctl01$PageSizeComboBox',
        id      => 'ProjectionBoard1_dg1_ctl00_ctl03_ctl01_PageSizeComboBox_Input',
        value   => 500,
    },
);

, но ответ, который я получаю от сценария: «Нет формы с запрошенными полями»

1 Ответ

0 голосов
/ 26 февраля 2020

попробуйте что-то вроде этого: 

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url = "https://www.fangraphs.com/projections.aspx?pos=all&stats=bat&type=steamer&team=0&lg=all&players=0";
$mech->get($url);
$mech->set_fields( 
'RadScriptManager1_TSM' => '',
'ProjectionBoard1$dg1$ctl00$ctl02$ctl00$PageSizeComboBox' => '30'
'ProjectionBoard1_dg1_ctl00_ctl03_ctl01_PageSizeComboBox_ClientState' => ''
);
$mech->submit;

установите поля формы, используя синтаксис 'FIELD_NAME' => 'VALUE', а затем отправьте

...