[root@yyjk sbin]# cat s1.pl
use LWP::UserAgent;
use DBI;
use POSIX;
use Data::Dumper;
use HTML::TreeBuilder;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
use HTML::TreeBuilder::XPath;
$tree= HTML::TreeBuilder::XPath->new;
$tree->parse_file( "fh2.html");
my @title= $tree->findvalues('//a[@target="_blank"]');
print @title;
[root@yyjk sbin]#
[root@yyjk sbin]#
[root@yyjk sbin]# cat fh2.html
<div class="daohang-kuai">
<div class="daohang-org"><span>合规部</span></div>
<div class="daohang-links"><a href="http://xxx3.246.2:7001/newaml?tgt=TGT-518341-bAJd4aeK0sZnlJQC3ET2U2VPUCSDmNlMm3dq0VITiIrOQUx6ik-cas01.example.org" target="_blank">反洗钱系统</a>
根据//a[@target=“_blank“ a标签查找taget属性是_blank的值
最新推荐文章于 2024-09-06 14:32:59 发布