Perl 新浪股票信息收集

Bai_Yuanyong

于 2012-12-21 22:22:46 发布

阅读量7.3k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： Perl Finance

本文链接：https://blog.youkuaiyun.com/USTBHacker/article/details/8365609

该博客介绍了如何使用Perl脚本从SINA获取股票信息，包括不同参数的使用方法，如获取默认股票列表、上海深圳股市数据以及指定股票信息。同时提到了在需要代理情况下对脚本的相应调整。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

通过解析SINA HTTP 返回的数据获取股票信息，具体返回值参考文章实时股票数据接口大全。

使用说明：

perl script.pl [-c -f] -d 获取默认@defaultstock列表中股票信息，参数-c 清屏，参数-f 输出更加完整的信息，参考图例
perl script.pl -m [sh sz zx cy] 四个参数分别代表获取上海，深圳，中小，创业板股票的信息
perl script.pl sh600001 sz000858 获取参数提供的股票信息

如果需要代理（公司里上网），修改PROXY地址并取消$us->proxy行注释。修改@defaultstock为自己关注的股票。

use strict;
use warnings;
use Carp;
use LWP::UserAgent;
use Getopt::Std;

use constant MAXNUMBER => 500;
use constant LINE => 30;
use constant PROXY => 'http://10.40.14.56:80';
$| = 1; 

my %opts;
getopts('cdfm:', \%opts);

my %market = (
	sh => sub {map {"sh$_"} ('600001' .. '602100')},
	sz => sub {map {"sz$_"} ('000001' .. '001999')},
	zx => sub {map {"sz$_"} ('002001' .. '002999')},
	cy => sub {map {"sz$_"} ('30