树生成器 获取嵌入式节点

Question

基本上，我需要在HTML代码中获取所有这些人的姓名和电子邮件。

<thead>
<tr>
<th scope="col" class="rgHeader" style="text-align:center;">Name</th><th scope="col" class="rgHeader" style="text-align:center;">Email Address</th><th scope="col" class="rgHeader" style="text-align:center;">School Phone</th>
</tr>
</thead><tbody>
<tr class="rgRow" id="ctl00_ContentPlaceHolder1_rg_People_ctl00__0">
<td>
Michael Bowen
</td><td>[e-mail]</td><td>903-488-3671 ext3200</td>
</tr><tr class="rgAltRow" id="ctl00_ContentPlaceHolder1_rg_People_ctl00__1">
<td>
Christian Calixto
</td><td>[e-mail]</td><td>903-488-3671 x 3430</td>
</tr><tr class="rgRow" id="ctl00_ContentPlaceHolder1_rg_People_ctl00__2">
<td>
Rachel Claxton
</td><td>[e-mail]</td><td>903-488-3671 x 3450</td>
</tr>
</tbody>
</table><input id="ctl00_ContentPlaceHolder1_rg_People_ClientState" name="ctl00_ContentPlaceHolder1_rg_People_ClientState" type="hidden" autocomplete="off">    </div>

<br>

我知道如何将树构建器与节点等一起使用，并且我正在我的一些脚本中使用此代码。

my ($file) = @_;
my $html = path($file)-> slurp;
my $tree = HTML::TreeBuilder->new_from_content($html);
my @nodes = $tree->look_down(_tag => 'input');
my $val;
foreach my $node (@nodes) {
$val = $node->look_down('name', qr/$txt_Website/)->attr('value');
}
return $val;

我打算对这个函数使用相同的代码，但我意识到我没有太多要搜索的内容，因为<td>标签在脚本中的许多其他位置。我相信有更好的方法来解决这个问题，但我似乎找不到它。

链接到 HTML 代码：

http://pastebin.com/qLwu80ZW我的代码： https://pastebin.com/wGb0eXmM

注意：我确实尽可能多地在谷歌上查找，但我不太确定我应该搜索什么。

Answer 1

包含所需数据的table元素具有唯一的类rgMasterTable因此您可以在look_down中搜索该类

我写这个是为了演示。它直接从您的粘贴中提取 HTML

use strict;
use warnings 'all';
use LWP::Simple 'get';
use HTML::TreeBuilder;
use constant URL => 'http://pastebin.com/raw/qLwu80ZW';
my $tree = HTML::TreeBuilder->new_from_content(get URL);
my ($table) = $tree->look_down(_tag => 'table', class => 'rgMasterTable');
for my $tr ( $table->look_down(_tag => 'tr') ) {
next unless my @td = $tr->look_down(_tag => 'td');
my ($name, $email) = map { $_->as_trimmed_text } @td[0,1];
printf  "%-17s %sn", $name, $email;
}

输出

Michael Bowen     [e-mail]
Christian Calixto [e-mail]
Rachel Claxton    [e-mail]