Dom走进perl

Question

使用以下示例。我有一个使用Mojo::DOM解析的HTML文件。但是我在其中一个页面中遇到一个场景，我需要两个类（问题和答案）来读取包含一个带有相应文本框需要填充的Label。我在检索Label及其相应的文本框时遇到问题，以便我可以在右侧框中填入正确的值。

<td class="Question">1</td>
<td class="Answer"><input type="text"/></td>
<td class="Question">2</td>
<td class="Answer"> <input type="text"/></input></td>
<td class="Question">3</td>
</td class="Answer"><input type="text"/></td>

请问有关如何使用perl进行操作的任何想法？请注意，每个标签的innertext会根据脚本运行进行更改。

Answer 1

在摆弄Mojo :: Dom后，我可以选择标签的值，然后将其与WWW :: Mechanize结合使用，将其填入输入文本框。

my $url = "http://MyURL/Path"
my $mech  = WWW::Mechanize->new( agent => 'Mozilla/4.0 (compatible; MSIE 8.0; Windows 
NT 6.1)');
$mech->get($url);
$dom =  Mojo::DOM->new($mech->content);
my @temp =  $dom->find('.Question')->map(sub{$_->text})->each ;

它返回的数组按照我想要的顺序离开它。我从http://blogs.perl.org/users/joel_berger/2012/05/using-mojodom.html得到了一个参考资料，如果有人需要一个易于使用的工具，这真的有帮助。