perl - WWW:Mechanize setvisible

Question

在当前表单中设置单选按钮很简单：

$clone->set_visible([radio => '1']);

对于未知数量的单选按钮（可能是 10 到 20），一个循环应该可以工作：

while(1) {last if (!$clone->set_visible([radio => '1']));};

然而，尽管 setvisible 总是返回 1。我的猜测是它只在什么都没有设置时才返回 0。但是，即使设置了一个字段，它也可以“重新设置”。

设置好所有收音机后如何停止？还是我需要先确定有多少？

Answer 1

您可以首先找到您需要的所有输入：

my @radio_inputs = $mech->find_all_inputs(
    type       => 'radio',
);