抓取腾讯股票信息

最新推荐文章于 2024-11-21 14:51:09 发布

ace_fei

最新推荐文章于 2024-11-21 14:51:09 发布

阅读量3.4k

点赞数

分类专栏： PERL

本文链接：https://blog.youkuaiyun.com/ace_fei/article/details/44774291

版权

本文介绍了一种修改后的程序，该程序能够抓取腾讯股票信息，并且允许用户输入购买价格和持有量，进而估算个人投资的盈亏情况。

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

根据http://blog.youkuaiyun.com/ustbhacker/article/details/8457341上的提示，我把他的程序改了一下，主要实现了显示自定义我的股票，通过设置购买价格和持有量，来粗略计算自己的盈利。

use utf8;
use Encode;

use strict;
use warnings;
use LWP::UserAgent;

use constant URL    => 'http://qt.gtimg.cn/q=';
use constant PROXY  => 'http://135.240.131.128:61250'; #使用代理修改此处并去掉下边代码中的注释
use constant MAXNUMBER  => 50; #腾讯每次最多取60个左右的股票信息，设置一个整数，HTTP GET中使用

#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 COLUMN => qw(1 2 3 4 5 6 31 32 33 34 38 49 50 51); #要显示的列，自己根据需要修改
use constant ORDER  => 7; #要排序的列

my @result          = ();

#大盘指数
my @zs_result       = ();

my %stocklist       = (
    # Symbol  =>  [ 'buy price', 'holdings']
    's_sh000001' => '',
    's_sz399001' => '',
    '000001' => ['',''], # 上证指数
    '600000' => ['',''], # 浦发银行 
    '002340' => ['',''], # 格林美
    '601377' => ['',''], # 兴业证券
    '600048' => ['',''], # 保利地产 
    '000410' => ['',''], # 沈阳机床 
    '601009' => ['',''], # 南京银行 
    '601008' => ['8.12','800'], # 连云港
    '600317' => ['',''], # 营口港
    '601166' => [

最低0.47元/天解锁文章