將表中的內容與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 
}