WWW :: Выдать сообщение о механизме текстового поля

Question

Я пытаюсь отправить форму методом post, используя WWW::Mechanize модуль perl.

use WWW::Mechanize; 

my $mech = WWW::Mechanize->new(); 
... 
$mech->get($url); 
... 
my $response = $mech->submit_form(
     form_name => $name, 
     fields => { 
         $field_name => $field_value 
         }, 
     button => 'Button' 
    ); 

$field_name, вообще говоря, текстовое поле (хотя тип не указан явно в форме), который имеет заданную величину.

$field_name => $field_value в $mech->submit_form по какой-либо причине не заменяет значение, а $field_value добавляется в форму после первоначального значения:

{submitted_field_value} = {original_value},{provided_value} 

Как заменить {original_value} с {provided_value} в форме должны быть представлены?

Answer 1

Мне удалось заставить его работать по моей воле. Спасибо Тимбусу и кнуту за ваши предложения. Хотя мой случай может быть не совсем общим (я знаю заданное значение), но я бы поделился тем, что нашел (по ошибкам &).

my $mech = WWW::Mechanize->new(); 
$mech->get($url); 
$mech->form_name($name); 

my $fields = $mech->form_name($name); 
foreach my $k (@{$fields->{inputs}}){ 
if ($k->{value} eq $default_value){ 
    $k->{value}=$field_value; 
    } 
} 

my $response = $mech->click('Button_name'); 

Answer 2

Важно помнить WWW. Механизм лучше воспринимается как «безгласный браузер», а не LWP или curl, которые обрабатывают только все фрагменты HTTP-запросов для вас. Мех сохраняет свое состояние, как вы делаете.

Вам нужно будет получить форму, используя $mech->forms или что-то подобное (its best to decide from the documentation. I mean there so many ways to do it.), а затем установите поле ввода, которое вы хотите изменить, используя field methods.

Я думаю, основной способ сделать это выходит, как так:

$mech->form_name($name); 
$mech->field($field_name, $field_value); 
my $response = $mech->click('Button'); 

должен работать. Я полагаю, что он также будет работать, если вы получите поле и напрямую его используете (то есть my $field = $mech->form_name($name); затем используйте методы $ field вместо $ mech.

Answer 3

Что произойдет, если вы добавите эту единственную строку в свой код перед вызовом $ mech-> submit_form():

$mech->field($name, [$field_value], 1); 

Это гарантирует, что первое значение добавляется или перезаписаны, если он уже существует является параметром номер (или индекс позиции)

Смотрите документацию WWW.: : Механизировать:

$ mech-> поле ($ имя, \ @values, $ число)

Учитывая название поля, установите значение указанного значения. [...]

Необязательный параметр $ number используется для различения двух полей с тем же именем. Поля пронумерованы от 1.