Perl 腾讯股票信息收集

关注

VIP免费原创最新推荐文章于 2026-04-05 09:19:28 发布 1w 阅读 AI 写同款· GEO 优化 ›

Perl 新浪股票信息收集通过解析SINA HTTP 返回的数据获取股票信息，具体返回值参考文章实时股票数据接口大全。使用说明： perl script.pl [-c -f] -d 获取默认@defaultstock列表中股票信息，参数-c 清屏，参数-f 输出更加完整的信息，参考图例 perl script.pl -m [sh sz zx cy] 四个参数分别代表获取上海，深圳，中小，创业板股票的信息阅读详情

之前的新浪股票脚本信息不太全，参考前面一篇文章腾讯股票接口，写了一个更加方便的，信息比较全的。看代码：

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') }->(),
	sub { map {"sz$_"} ('300001' .. '300400') }->(),
);

my %config = (
	detail => {
		method => sub { @_ },
		0 	=> '未知',
		1 	=> '名字',
		2 	=> '代码',
		3 	=> '当前价格',
		4 	=> '