perl 获取铜板街页码

scan724

于 2020-11-30 22:32:12 发布

阅读量131

点赞数

分类专栏： Perl 爬虫

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/65443596

版权

Perl 爬虫专栏收录该内容

34 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

本文介绍了如何利用Perl编程语言解析铜板街网站的HTML内容，提取出页面的分页数，从而实现对大量网页数据的自动化抓取。通过对HTTP请求的模拟和正则表达式的运用，详细阐述了具体实现步骤。

摘要由CSDN通过智能技术生成

node2:/root/pachong/tongbanjie#cat test.pl 
use LWP::UserAgent;  
use POSIX;  
use HTML::TreeBuilder::XPath;   
use Encode;   
use HTML::TreeBuilder;    
use Data::Dumper;
use HTML::TreeBuilder::XPath;  
use DBI;  
use Encode;
  my  $user="root";  
  my  $passwd="1234567";  
  $dbh = DBI->connect("dbi:mysql:database=licai;host=127.0.0.1;port=3306",$user,$passwd) or die "can't connect to  database ". DBI-errstr;  
  $dbh->do("SET NAMES utf8"); 
   my $ua = LWP::UserAgent->new;  
   $ua->timeout(10);  
   $ua->env_proxy;  
   $ua->agent("Mozilla/8.0");  
       my $tree= HTML::TreeBuilder::XPath->new;  
       $tree->parse_file("test.htm

了解本专栏