1 #!/usr/bin/perl
2 use strict;
3 require LWP::UserAgent;
4 require Data::Dumper;
5 use LWP::Simple;
6
7 my %MyStock1=qw(600178 东安动力);
8 my %MyStock=qw(600569 安阳钢铁 600978 宜华木业 600282 南钢股份 510050 50ETF
9 601988 中国银行 601899 紫金矿业 600010 包钢股份 600178 东安动力);
10 my $ua = LWP::UserAgent->new;
11 $ua->timeout(10);
12 $ua->env_proxy;
13 my $response;
14 my $myurl="";
15 print "edit by John YU";
16 foreach my $cur_key(keys %MyStock)
17 {
18 my @data;
19 my $DescUrl=$myurl.$cur_key;
20 $response = $ua->get("$DescUrl");
21 my $body= $response->content;
22 #my $body= get($DescUrl);
23 push(@data, "$body" =~ m/(.*?)<\/font><\/f ont><\/td>/si);
24 print "$cur_key=>$MyStock{$cur_key}==> $data[0]\n";
25 }
26
大家可以写各种算法,设置价位,然后可以给自己发邮件用来提醒。
阅读(900) | 评论(0) | 转发(0) |