将表中的内容与Perl匹配

Question

我使用HTML::Query从每个td标签中提取内容。我确实希望它以html格式。现在，当我印刷它时，大部分时间它似乎都要打印两次。有什么想法这里发生了什么？ 这里是我使用的代码：

for my $td ($doc->query("td")) { 
$td= $td->as_HTML; 
    given($td){ 
    when (/class=\"class1\">(.*?)<\/td>/){ 
      my $output = $1; 
    print "$output\n"; 
    } 

    when (/class=\"class2\">(.*?)<\/td>/){ 
      my $output = $1; 
    print "$output\n"; 
    } 
    when (/class=\"class3\">(.*?)<\/td>/){ 
      my $output = $1; 
    print "$output\n"; 
    } 
    when (/class=\"class4\">(.*?)<\/td>/){ 
      my $output = $1; 
    print "$output\n"; 
    } 
    } 


Input: 
<table> 
<tr> 
    <td class="class1">question</td> 
    <td class="class2">No response</td> 
</tr> 

<tr> 
    <td class="class1">question</td> 
    <td class="class2">No response</td> 
</tr> 

<tr> 
    <td class="class3">Answer</td> 
    <td class="class4">Answer is available</td> 
</tr> 
</table> 

Answer 1

到query回报所有<td>元素调用;有两个class="class1"，所以这就是为什么该案件匹配两次。

由于您已经询问有关在单行上打印每个行的内容，请尝试以下操作。请注意，我正在使用HTML::Element中的某些方法，而不是尝试匹配原始HTML代码。

for my $tr ($doc->query("tr")) { 
    my ($td1, $td2) = $tr->contents_list(); 
    # Print contents of $td1 and $td2 on the same line 
}