#!/usr/bin/perl use strict; use warnings; use HTML::TreeBuilder; my $html = do{local $/;<DATA>}; my $r = HTML::TreeBuilder->new_from_content($html); printf qq{*%s*\n}, $_->as_text for $r->look_down(_tag => q{b}); __DATA__ <td>Suggested Categories or Articles</td> <td> <b>personal injury</b> <font size="-3" face="Verdana"> (0.56)</font><br> <b>accident lawyers</b> <font size="-3" face="Verdana"> (0.4)</font><br> <b>attorneys</b> <font size="-3" face="Verdana"> (0.35)</font><br> <b>law firms</b> <font size="-3" face="Verdana"> (0.32)</font><br> <b>litigation</b> <font size="-3" face="Verdana"> (0.32)</font><br> </td>
*personal injury* *accident lawyers* *attorneys* *law firms* *litigation*
In reply to Re: Parse into array
by wfsp
in thread Parse into array
by vit
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |