利用 perl 去炒股

  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="http://q.eastmoney.com/q.aspx?StockCode=";
 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 color="green"><font color=red>(.*?)<\/font><\/f    ont><\/td>/si);
 24 print "$cur_key=>$MyStock{$cur_key}==> $data[0]\n";
 25 }
 26

大家可以写各种算法，设置价位，然后可以给自己发邮件用来提醒。