如何使用 Perl 的 WWW::Mechanize 访问没有名称或 ID 的表单？

Question

我的 Perl 程序有问题。该程序登录到特定网页并填充消息的文本区域和手机号码的输入框。单击“发送”按钮后，消息将发送至指定号码。我已经让它可以用来发送消息了。但问题是我无法让它用于接收消息/回复。我在 Perl 中使用 WWW::Mechanize 模块。这是我的代码的一部分（用于接收消息）：

$username = 'suezy';
$password = '123';
$url = 'http://..sample.cgi';

# ...

$mech->credentials($username, $password);  
$mech->get($url);

$mech->submit(); 

我的问题是，表单没有显示名称。此表单中有两个按钮，但我无法选择要单击哪个按钮，因为没有指定名称并且 ids 包含空格（例如表单名称='接收消息'..） 。我需要单击第二个按钮“接收”。

问题是，我如何能够使用 mechanize 模块访问表单和按钮而不使用名称？

Answer 1

您可以将 form_number 参数传递给 Submit_form 方法。

或者调用form_number方法来影响以后调用click或field时使用哪个表单。

Answer 2

您是否尝试过使用 HTTP 记录器？
查看文档并尝试一下，看看它是否为您提供合理的结果。

Answer 3

看到您的表单上只有两个按钮，ysth 的建议应该很容易实现。

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

my $username = "suezy";
my $password = "123";
my $url = 'http://.../sample.cgi';
my $mech = WWW::Mechanize->new();

$mech->get($url);
$mech->credentials($username,$password);

然后：

$mech->click_button({number => 1});       # if the 'Receive' button is 1

或者：

$mech->click_button({number => 2});       # if the 'Receive' button is 2

反复试验的情况足以让您弄清楚您正在单击哪个按钮。

编辑

我假设相关表单已被选择。如果不是：

$mech->form_number($formNumber);

其中 $formNumber 是相关页面上的表单编号。

Answer 4

$mech->form_with_fields('username');

将选择包含名为 username 的字段的表单。
哈