之前的新浪股票脚本信息不太全,参考前面一篇文章腾讯股票接口,写了一个更加方便的,信息比较全的。看代码:
use utf8;
use Encode;
use strict;
use warnings;
use LWP::UserAgent;
use threads (exit => 'threads_only',);
use threads::shared;
use constant URL => 'http://qt.gtimg.cn/q=';
use constant PROXY => 'http://10.40.14.56:80'; #使用代理修改此处并去掉下边代码中的注释
use constant MAXNUMBER => 50; #腾讯每次最多取60个左右的股票信息,设置一个整数,HTTP GET中使用
use constant CONFIG => 'detail';
use constant COLUMN => qw(1 2 3 4 5 7 8 10 9 19 20 31 32 36 37 38 39 46 44 45); #要显示的列,自己根据需要修改
use constant ORDER => 2; #要排序的列
my @result : shared = ();
my @stocklist = (
sub { map {"sh$_"} ('600001' .. '602100') }->(),
sub { map {"sz$_"} ('000001' .. '001999') }->(),
sub { map {"sz$_"} ('002001' .. '002999') }->