perl 爬取上市公司业绩预告

最新推荐文章于 2024-01-04 10:29:48 发布

scan724

最新推荐文章于 2024-01-04 10:29:48 发布

阅读量1.1k

点赞数

分类专栏： Perl 爬虫

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

版权

Perl 爬虫专栏收录该内容

34 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

该博客使用Perl编程语言，结合LWP::UserAgent、HTML::TreeBuilder等模块，爬取了10jqka.com.cn网站上的上市公司业绩预告数据。通过循环遍历不同日期的页面，将获取的内容保存到HTML文件，再解析HTML提取所需信息，最终按日期和页码将数据写入TXT文件。

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

<pre name="code" class="python">use  LWP::UserAgent;
use utf8;
use DBI;  
use POSIX;
use Data::Dumper;
use HTML::TreeBuilder;
  use HTML::TreeBuilder::XPath;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
#my $response = $ua->get('http://data.10jqka.com.cn/financial/yjyg/date/2016-12-31/board/ALL/field/enddate/order/desc/page/1/ajax/1/');
#my $response = $ua->get('http://data.10jqka.com.cn/financial/yjyg/');
my @array=('2016-12-31','2016-03-31','2015-12-31','2015-09-30','2015-06-30','2015-03-31','2014-12-31','2014-09-30','2014-03-31');

foreach (@arr

了解本专栏