HTML::TableParser 怎么取到表格中的链接？

yakczh_cu

1. use v5.10;
   
2. 
   
3. my $html = <<'HTML';
   
4.     <table>
   
5.     <tr>
   
6.     <td class="fieldLabel" height="18"> &gt;first </td>
   
7.     <td class="dataEntry" height="18">
   
8.         10/27/2011      
   
9.     </td>
   
10.     <td > <a href="http://www.google.com"> google  &lt;</a> </td>
    
11.     </tr>
    
12.     </table>
    
13. HTML
    
14. 
    
15. use HTML::TableParser;
    
16. 
    
17. sub row {
    
18.     my( $tbl_id, $line_no, $data, $udata ) = @_;
    
19.     print "\t";
    
20.     print join("\t",@{$data});
    
21. 
    
22.     }
    
23. 
    
24. # create parser object
    
25. my @req=({ id => 1, row => \&row, });
    
26. my $p = HTML::TableParser->new(
    
27.      \@req,
    
28.     { Decode => 1, Trim => 1, Chomp => 1, }
    
29.     );
    
30. $p->parse( $html );
    

复制代码

回调函数中只能得到 google 相当于只有text ,怎么把链接A也一起取出来？