如何处理网站上的无名表单？

Question

我想编写一个脚本，让我使用这个网站

http:// Proteinmodel.org/AS2TS/ LGA/lga.html

（我需要使用它几百次，而且我不想手动执行此操作）

我在互联网上搜索了如何使用 Perl 完成此操作的方法，并且我遇到了WWW::Mechanize，这似乎正是我正在寻找的东西。但现在我发现我想要使用的网站上的表单没有名称 - 它的声明行只是简单地写着：

<FORM METHOD="POST" ACTION="./lga-form.cgi" ENCTYPE=multipart/form-data>

起初我尝试简单地不设置我的 WWW::Mechanize 对象的 form_name< /code> 属性，当我为表单的电子邮件地址字段提供值时，它给了我此错误消息：

Argument "[email protected]" isn't numeric in numeric gt (>) at /usr/share/perl5/WWW/Mechanize.pm line 1618.

然后我尝试将 form_name 设置为 '' 以及后来的 ' '，但是并没有什么用，我只是得到了这样的信息：

There is no form named " " at ./automate_LGA.pl line 40

有什么办法可以处理没有名字的表单呢？如果这里有人可以回答这个问题，那将是最有帮助的 - 即使答案指向使用 WWW::Mechanize，因为我只是想完成工作，（或多或少）不不管如何。

预先非常感谢！

Answer 1

我不知道 WWW::Mechanize，但它的 Python 等效项 mechanize，给你一个表单数组，即使你不知道它们的名字，你也可以迭代它们。

示例（取自其主页）：

import mechanize

br = mechanize.Browser()
br.open("http://www.example.com/")

for form in br.forms():
    print form

编辑：在WWW::Mechanize的文档中搜索我找到了$mech->forms() 方法，这可能就是您所需要的。但由于我不知道 perl 或 WWW::Mechanize，所以我将保留我的 python 答案。

Answer 2

好吧，我已经找到答案了。我可以通过编号来寻址无名表单（网页上只有一个表单，所以我猜它会是编号 1，并且它有效）。这是我的代码的一部分：

my $lga = WWW::Mechanize->new();

my $address = '[email protected]';
my $options = '-3 -o0 -d:4.0';
my $pdb_2   = "${pdb_id}_1 ${pdb_id}_2";

$lga->get('http://proteinmodel.org/AS2TS/LGA/lga.html');
$lga->success or die "LGA GET fail\n";

$lga->form_number(1);
$lga->field('Address', $address);
$lga->field('Options', $options);
$lga->field('PDB_2', $pdb_2);
$lga->submit();
$lga->success or die "LGA POST fail\n";

Answer 3

一种简单且更可靠的方法是使用 $mech->form_with_fields() 方法来自 WWW::Mechanize 根据其包含的字段选择您想要的表单。

更简单的是，使用带有 with_fields 选项的 submit_form 方法。

例如，要找到一个包含名为“用户名”和“密码”字段的表单，完成它们并提交表单，就像这样简单：

$mech->submit_form( 
    with_fields => { username => $username, password => $password }
);

这样做的优点是，如果他们打乱 HTML 的顺序，则可以更改HTML 中的表单，或者在您感兴趣的表单之前添加一个新表单，您的代码将继续工作。