WWW:机械化可见

时间:2013-09-24 17:45:08

标签: perl www-mechanize

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

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

使用未知数量的单选按钮(可能是10到20个),循环应该有效:

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

然而,虽然setvisible总是返回1.我的猜测是它只在没有设置时返回0。但即使设置了一个字段,它也可以“重新设置”。

设置完所有无线电后如何停止?或者我需要确定首先有多少?

1 个答案:

答案 0 :(得分:0)

您可以先找到所需的所有输入:

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