根据body的内容 查找ul标签的@class="subtitle"的值

node2:/root/pachong#cat test.html  <ul class="panel_body">                     <li>                    <a href="/zhaoyangjian724/article/category/1756569" onclick="_gaq.push(['_trackEvent','function', 'onclick', 'blog_articles_wenzhangfenlei']); ">Oracle dump解析</a><span>(20)</span>                </li>                 <li>                    <a href="/zhaoyangjian724/article/category/1756685" onclick="_gaq.push(['_trackEvent','function', 'onclick', 'blog_articles_wenzhangfenlei']); ">sql 查询优化</a><span>(159)</span>                </li> my @type=$tree->findvalues( '/html/body//ul[@class="panel_body"]/li/a'); findvalues ($path)返回 匹配的值作为一个列表,这个和findnodes_as_strings很像,除非列表的元素是对象node2:/root/pachong#cat findvalues.pl use  LWP::UserAgent;  use POSIX;  use HTML::TreeBuilder::XPath;   use Encode;   use HTML::TreeBuilder;    use Data::Dumper; my $ua = LWP::UserAgent->new;   $ua->timeout(10);   $ua->env_proxy;   $ua->agent("Mozilla/8.0");       use HTML::TreeBuilder::XPath;   my $tree= HTML::TreeBuilder::XPath->new;   $tree->parse_file( "csdn.html");   ##获取博客分类的URL，根据a标签查找   my @type=$tree->findvalues( '/html/body');  #my @type=$tree->findvalues( '/html/body//ul[@class="panel_body"]/li/a');  print @type;node2:/root/pachong#perl findvalues.pl Oracle dump解析(20)sql 查询优化(159)node2:/root/pachong#根据body的内容 查找ul标签的@class="subtitle"的值