perl:获取同花顺数据--业绩快报,业绩公告

2024-03-24 03:36

本文主要是介绍perl:获取同花顺数据--业绩快报,业绩公告,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

perldoc LWP::UserAgent

如果没有安装,则安装模块,运行 cpanm LWP::UserAgent  。

编写  get_yjkb_10jqka.pl  如下

#!/usr/bin/perl
# perl 获取同花顺数据--业绩快报
use LWP::UserAgent;
use Encode qw(decode encode);
use POSIX;
use Data::Dumper;
use HTML::TreeBuilder;
use HTML::TreeBuilder::XPath;my $tree= HTML::TreeBuilder::XPath->new;
open(my $DATA,'>', "data.html") or die "open data file failed:$!"; 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/yjkb/');if ($response->is_success) {print $DATA  $response->decoded_content;  # or whatever
#  print $response->decoded_content;  # or whatever$tree->parse_file( "data.html");
};my $title=  $tree->findvalue('/html/body//span[@class="text-value"]');
print " title is $title\n";
$title ='yjkb-2023Y'; 
my $pages = $tree->findvalue('/html/body//span[@class="page_info"]');
my @ps = split('/', $pages);
print " $title pages is $ps[1]\n";sub utf2gbk { encode('gbk', decode('utf8', $_[0]));} 
# 表头一行
my $headline ="序号,股票代码,股票简称,公告日期,营业收入(元),去年同期(元),同比增长(%),季度环比增长(%),净利润(元),去年同期(元),同比增长(%),季度环比增长(%),每股收益(元),每股净资产(元),净资产收益率(%),更多\n";for (my $n=1; $n<=1; $n++){open(my $T, ">", "$title-$n.csv");print $T utf2gbk($headline);my @arr1= $tree->find_by_tag_name("tr") ;shift @arr1; shift @arr1; # 忽略表头2行foreach my $row (@arr1) {my @arr2= $row->content_list;my @str;foreach my $a (@arr2){ push @str, $a->as_text;}my $line = utf2gbk(join(',', @str));     print $T "$line\n"; }close $T;
}

注意:源程序 编码:UTF-8.

运行 cmd

chcp 65001

perl get_yjkb_10jqka.pl 

 title is 2023年年报
 yjkb-2023Y pages is 23

生成 yjkb-2023Y-1.csv 


编写  get_yjgg_10jqka.pl  如下

#!/usr/bin/perl
# perl 获取同花顺数据--业绩公告
use LWP::UserAgent;
use Encode qw(decode encode);
use POSIX;
use Data::Dumper;
use HTML::TreeBuilder;
use HTML::TreeBuilder::XPath;my $tree= HTML::TreeBuilder::XPath->new;
open(my $DATA,'>', "data.html") or die "open data file failed:$!"; 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/yjgg/');if ($response->is_success) {print $DATA  $response->decoded_content;  # or whatever
#  print $response->decoded_content;  # or whatever$tree->parse_file( "data.html");
};my $title=  $tree->findvalue('/html/body//span[@class="text-value"]');
print " title is $title\n";
$title ='yjgg-2023Y'; 
my $pages = $tree->findvalue('/html/body//span[@class="page_info"]');
my @ps = split('/', $pages);
print " $title pages is $ps[1]\n";sub utf2gbk { encode('gbk', decode('utf8', $_[0]));} # 表头一行
my $headline ="序号,股票代码,股票简称,公告日期,营业收入(元),去年同期(元),同比增长(%),季度环比增长(%),净利润(元),去年同期(元),同比增长(%),季度环比增长(%),每股收益(元),每股净资产(元),净资产收益率(%),更多\n";for (my $n=1; $n<=1; $n++){open(my $T, ">", "$title-$n.csv");print $T utf2gbk($headline);my @arr1= $tree->find_by_tag_name("tr") ;shift @arr1; shift @arr1; # 忽略表头2行foreach my $row (@arr1) {my @arr2= $row->content_list;my @str;foreach my $a (@arr2){ push @str, $a->as_text;}my $line = utf2gbk(join(',', @str));     print $T "$line\n"; }close $T;
}

运行 perl get_yjgg_10jqka.pl 

 title is 2023年年报
 yjgg-2023Y pages is 7

生成 yjgg-2023Y-1.csv 

这篇关于perl:获取同花顺数据--业绩快报,业绩公告的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/840348

相关文章

Python获取中国节假日数据记录入JSON文件

《Python获取中国节假日数据记录入JSON文件》项目系统内置的日历应用为了提升用户体验,特别设置了在调休日期显示“休”的UI图标功能,那么问题是这些调休数据从哪里来呢?我尝试一种更为智能的方法:P... 目录节假日数据获取存入jsON文件节假日数据读取封装完整代码项目系统内置的日历应用为了提升用户体验,

微信公众号脚本-获取热搜自动新建草稿并发布文章

《微信公众号脚本-获取热搜自动新建草稿并发布文章》本来想写一个自动化发布微信公众号的小绿书的脚本,但是微信公众号官网没有小绿书的接口,那就写一个获取热搜微信普通文章的脚本吧,:本文主要介绍微信公众... 目录介绍思路前期准备环境要求获取接口token获取热搜获取热搜数据下载热搜图片给图片加上标题文字上传图片

Java利用JSONPath操作JSON数据的技术指南

《Java利用JSONPath操作JSON数据的技术指南》JSONPath是一种强大的工具,用于查询和操作JSON数据,类似于SQL的语法,它为处理复杂的JSON数据结构提供了简单且高效... 目录1、简述2、什么是 jsONPath?3、Java 示例3.1 基本查询3.2 过滤查询3.3 递归搜索3.4

MySQL大表数据的分区与分库分表的实现

《MySQL大表数据的分区与分库分表的实现》数据库的分区和分库分表是两种常用的技术方案,本文主要介绍了MySQL大表数据的分区与分库分表的实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有... 目录1. mysql大表数据的分区1.1 什么是分区?1.2 分区的类型1.3 分区的优点1.4 分

Mysql删除几亿条数据表中的部分数据的方法实现

《Mysql删除几亿条数据表中的部分数据的方法实现》在MySQL中删除一个大表中的数据时,需要特别注意操作的性能和对系统的影响,本文主要介绍了Mysql删除几亿条数据表中的部分数据的方法实现,具有一定... 目录1、需求2、方案1. 使用 DELETE 语句分批删除2. 使用 INPLACE ALTER T

Python Dash框架在数据可视化仪表板中的应用与实践记录

《PythonDash框架在数据可视化仪表板中的应用与实践记录》Python的PlotlyDash库提供了一种简便且强大的方式来构建和展示互动式数据仪表板,本篇文章将深入探讨如何使用Dash设计一... 目录python Dash框架在数据可视化仪表板中的应用与实践1. 什么是Plotly Dash?1.1

Redis 中的热点键和数据倾斜示例详解

《Redis中的热点键和数据倾斜示例详解》热点键是指在Redis中被频繁访问的特定键,这些键由于其高访问频率,可能导致Redis服务器的性能问题,尤其是在高并发场景下,本文给大家介绍Redis中的热... 目录Redis 中的热点键和数据倾斜热点键(Hot Key)定义特点应对策略示例数据倾斜(Data S

使用Python实现获取网页指定内容

《使用Python实现获取网页指定内容》在当今互联网时代,网页数据抓取是一项非常重要的技能,本文将带你从零开始学习如何使用Python获取网页中的指定内容,希望对大家有所帮助... 目录引言1. 网页抓取的基本概念2. python中的网页抓取库3. 安装必要的库4. 发送HTTP请求并获取网页内容5. 解

Python实现将MySQL中所有表的数据都导出为CSV文件并压缩

《Python实现将MySQL中所有表的数据都导出为CSV文件并压缩》这篇文章主要为大家详细介绍了如何使用Python将MySQL数据库中所有表的数据都导出为CSV文件到一个目录,并压缩为zip文件到... python将mysql数据库中所有表的数据都导出为CSV文件到一个目录,并压缩为zip文件到另一个

C++常见容器获取头元素的方法大全

《C++常见容器获取头元素的方法大全》在C++编程中,容器是存储和管理数据集合的重要工具,不同的容器提供了不同的接口来访问和操作其中的元素,获取容器的头元素(即第一个元素)是常见的操作之一,本文将详细... 目录一、std::vector二、std::list三、std::deque四、std::forwa