[root@node01 ~]# cat t3.pl
use LWP::UserAgent;
no warnings;
use LWP;
use Encode;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use URI::Escape;
use URI::URL;
use JSON;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
my $host = 'http://admin:admin@192.168.137.3:8161/admin/queues.jsp';
my $response = $ua->get($host);
$ua->default_headers;
use HTML::TreeBuilder::XPath;
$tree= HTML::TreeBuilder::XPath->new;
$tree->parse_file( "mq.html");
my @queue= $tree->findvalues('//tr/td
perl 全文搜索tr/td标签内容
最新推荐文章于 2023-01-13 10:45:51 发布
本文介绍了如何使用Perl解析HTML文件,并全文搜索`<tr>`和`<td>`标签内的文本,实现对网页表格数据的提取和处理。
摘要由CSDN通过智能技术生成