通过解析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$_"} ('300001' .. '300400')},
);
my @defaultstock = qw(sh601818 sz300229 sz002649 sz002368 sh600667 sz0