- 论坛徽章:
- 0
|
:)
#!/user/bin/perl -w
#By xti9er www.xtiger.net
use LWP::Simple;
use Color::Output;
Color::Output::Init;
START:
system("cls");
`title --= M y S t o c k S c r e e n e r =--`;
cprin("\tM y S t o c k S c r e e n e r\n\n",7);
cprin("_"x50,13);
$|=1;
if(my $googled=get("http://www.google.cn/finance/info?q=id-690158,id-684321,id-684268,id-697176,id-702734,id-684353,id-709933,id-706853,id-690427,id-697980&infotype=infoquoteall&hl=zh-CN&gl=cn"))
{
my @info=split(/\,/,$googled);
print "\n股票码\t开盘价\t最高价\t最低价\t涨跌\t名称\n";
for my $newinfo(@info)
{
if ($newinfo=~/\"(.*)\"\s\:\s\"(.*)\"/)
{
my $infot=$1;
my $infoc=$2;
next if $infot=~/avvo|ccol|l_cur|lt|fwpe|beta|lo52|hi52/;
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 "cp"){$cp=$infoc}
if($infot eq "lname"){$lname=$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);
print "$lname\n";
print "-----------\n";
}
}
}
}
else
{
cprin("\n[!] GetInfo Fail\n",5);
}
sleep 10;
goto START;
print "\n","+"x50,"\n";
sub cprin
{
($str,$i)=@_;
cprint("\x03" . $i . " $str\x030");} |
看起来有点山寨，不过挺方便。 符合我等 “不求最好，但求追省事”的懒人哲学,呵呵。祝福大家股票支支涨停！
[ 本帖最后由 xti9er 于 2009-5-13 15:44 编辑 ] |
|
免费注册
发表于 2009-05-13 13:47
