- 论坛徽章:
- 0
|
做了一点小的修改，增加计算总盈利额功能，版面按我的审美观调整了一下，运行结果见我上一贴的图，希望楼主别介意：
#!/usr/bin/perl -w
use LWP::Simple;
use Color::Output;
use Encode qw/ encode /;
Color::Output::Init;
my $refresh = 15; #设置刷新频率，单位为秒
my $width = 77; #设置横线宽度
$|=1;
my $fst=0;
my $stimeout;
my $googleq="";
my $nowsc=0;
my (@scode,@sc,@spr);
START:
system("cls" ;
&gettime;
`title 股市行情`;
cprin("\n\t\t\t\t\ 股 市 行 情\n",7);
cprin("-"x$width,13);
if($fst==0)
{
cprin("\n 程序初始化...",13);
$stimeout = ($time>1500 || $time<915)?1:0;
open(ST,"MyStock.ini" or die $!;
while(my $info=<ST>
{
chomp($info);
next if $info=~/^#/;
my ($scode,$sc,$spr)=split(/=/,$info);
push(@scode,$scode);
push(@sc,$sc);
push(@spr,$spr);
$googleq .= "$scode,";
print ".";
}
$allst=scalar(@scode);
$fst=1;
goto START;
}
print "\n\t\t\t当前时间: $now\n";
cprin("-"x$width,13);
if(my $googled=get("http://www.google.cn/finance/info?q=$googleq&infotype=infoquoteall&hl=zh-CN&gl=cn")
{
my @info=split(/\,/,$googled);
print "\n\n 股票码\t开盘价\t最高价\t涨跌(%)\t",$stimeout==0?"当前价\t":"收盘价\t","成本价\t持有量\t盈利额\t股票名称\n";
my $profit = 0;
for my $newinfo(@info)
{
#print "$newinfo\n";
$nowsc=0 if $nowsc>$allst-1;
if ($newinfo=~/\"(.*)\"\s\:\s\"(.*)\"/)
{
my $infot=$1;
my $infoc=$2;
next if $infot=~/avvo|ccol|l_cur|lt|fwpe|beta|lo52|hi52/;
#print "$infot=$infoc\n";
if($infot eq "t"{$t=$infoc}
if($infot eq "op"{$op=$infoc}
if($infot eq "hi"{$hi=$infoc}
#if($infot eq "lo"{$lo=$infoc}
if($infot eq "l"{$l=$infoc}
if($infot eq "cp"{$cp=$infoc}
if($infot eq "lname"){$lname= encode("gb2312",$infoc)}
if ($infot eq "type")
{
print " $t\t";
print "$op\t";
cprin("$hi\t",($hi-$op)>0?5:7);
#cprin("$lo\t",($lo-$op)>0?5:7);
cprin("$cp\t",$cp>0?5:7);
cprin("$l\t",($l-$op)>0?5:7);
print "$spr[$nowsc]\t";
print "$sc[$nowsc]\t";
my $gl=int($sc[$nowsc] * ($l-$spr[$nowsc]));
cprin("$gl\t",$gl>0?5:7);
print "$lname\n";
$profit += $gl;
$nowsc++;
}
}
}
print "\n";
cprin("-"x$width,13);
cprin("\n 总盈利额: $profit 元\n\n ",($profit)>0?5:7);
}
else
{
cprin("\n [!] GetInfo Fail\n",5);
}
my $n = $refresh;
while ($n-- > 0) {
print ".";
sleep 1;
}
goto START;
sub cprin
{
($str,$i)=@_;
cprint("\x03" . $i . " $str\x030");
}
sub gettime {
my @days = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime(time));
$sec = ($sec < 10)? "0$sec" sec;
$min = ($min < 10)? "0$min"min;
$hour = ($hour < 10)? "0$hour"hour;
$day = ($day < 10)? "0$day"day;
$mon = ($mon < 9)? "0".($mon+1) $mon+1);
$year += 1900;
$now = "$year.$mon.$day $hourminsec $days[$weekday]";
$time = "$hour$min";
}
需要一个配置文件MyStock.ini，放在程序所在目录，格式如下例：
#股票代码=持有量=成本价
600004=6200=11.07
600359=900=16.95
600507=4700=11.35
600673=11600=9.36
000598=1200=13.06
000998=2000=21.6
002345=0=39 |
|
免费注册
楼主: xti9er
发表于 2010-02-23 16:42
