3

我阅读了 PerlWWW::Mechanize模块，这是语法：

$mech->tick( $name, $value [, $set] )

但是，当我检查网页的页面源时，我发现这是：

<div class="key-name" title="GLOBAL_PROCESSING">GLOBAL_PROCESSING</div>
    <div class="col-50 col-left">
    <div class="string-controls">
    <a href="#" class="control-expand-toggle"></a>
    <a href="#" class="control-activity-toggle ">0</a>
    <input type="checkbox" class="control-select-string">
    </div>

我没有看到复选框字段的 ID 和值。我该怎么做？

此外，复选框不是任何形式的一部分。如何在 Mechanize 中引用此复选框？

HTML 代码

<div id="edit-controls-leftside" class="clear-fix">
<div class="col-left">
<label>
<input id="select-all-visible" class="" type="checkbox">
&nbsp;Select all visible
</label>
<a id="expand-all" class="blue-on-dark-blue text-link arrow-leftside-down"     href="#">Show key names</a>
<a id="show-modify-nav" class="blue-on-dark-blue text-link arrow-leftside-right disabled" href="#">Modify selected...</a>
<nav id="modify-nav" style="display: none;">
<a id="show-order-translation" class="sub-nav-item" href="#">Order translations</a>
4

4 回答 4

1 
$mech->tick( 'name' => undef );
于 2013-04-02T09:37:01.503 回答
1

你为什么要这样做？

因为复选框没有名称或值，所以它不会成为任何提交的一部分，即使它是表单的一部分，但它不是。

您认为 JavaScript 使用复选框来切换其他复选框吗？

于 2012-12-14T14:00:43.573 回答
0

以下是使用 perl 检查没有值的复选框的一些解决方法Mechanize。

来自机械化手册。

如何检查未定义值的复选框？

将其设置为“on”的值。

$mech->field( my_checkbox => 'on' );

在这里找到另一个选项。

$form->find_input('checkbox_id')->check();

唯一的问题是您的复选框也没有名称/ID。希望其他人可以加入如何使用名称/ID 以外的其他内容来获取复选框。我会继续寻找。

编辑：

您也许可以使用：

$mech->find_all_inputs( ... criteria ... )

按类型和/或类名定位复选框，因为它没有名称或 ID。

于 2012-05-27T18:03:36.600 回答
0

使用中的方法check。HTML::Form文档引用：

一些输入类型表示可以打开/关闭的切换。这包括“复选框”和“选项”输入。调用此方法将打开此输入，而无需知道值名称。

适用于您的 HTML 的代码：

my $w = WWW::Mechanize->new;
$w->get('file:///tmp/10775965.html');
[$w->forms->[0]->inputs]->[0]->check;
于 2012-05-28T13:42:33.783 回答