Как войти, а затем отправить другое сообщение с WWW :: Механизировать в Perl

Question

У меня есть страница PHP (index.php), где после входа в форму я могу отправить SMS в другой форме. Через WWW :: Механизировать Я смог войти в систему (если я напечатаю ответ, он правильно показывает вторую форму для отправки SMS-сообщения), но я не могу отправить другую форму, если я распечатаю ответ, я получаю страницу отправки сообщений вместо страницы результатов SMS. Вот фрагмент кода, я что-то упускаю?

use WWW::Mechanize; 
use strict; 
use warnings; 

my $to = 'xxxxxxx'; 
my $text = 'test'; 

my $mech = WWW::Mechanize->new(); 
$mech->get('http://x.x.x.x/index.php'); 

# Login 

$mech->submit_form(
    fields  => { 
     oper => 'login', 
     usr => 'xxx', 
     pwd => 'xxx', 
    } 
); 

# Now that I logged in I can send the SMS 

#$mech->get('http://x.x.x.x/index.php'); Guess this get is useless 

$mech->submit_form(
    fields => { 
      to => $to, 
      text => $text, 
      submit => 'Send Message' 
    } 
); 

EDIT: добавление кода второй формы HTML может оказаться полезным.

<form name="sendsms" method="post" action="index.php"> 
<p>Phone Number:<br><input type="text" size="30" name="to"></p> 
<p>Message:<br><textarea cols="20" rows="5" name="text></textarea></p> 
<input type="submit" value="Send Message" name="submit"> 
<input type="reset" value="Reset"><br></form> 

Answer 1

Вам нужно выбрать форму для отправки. Попробуйте это:

$mech->submit_form(
    with_fields => { 
      to => $to, 
      text => $text, 
      submit => 'Send Message' 
    } 
    button => "your_submit_button_name_here", 
); 

Answer 2

попробовать что:

$mech->form_name("sendsms"); 
$mech->field("to","$to"); 
$mech->field("text","$text"); 
$click();