获取的web数据，匹配问题，请教

dayan_he

参考了前面一哥们发的股票脚本，加进了上证和深证指数代码，就不行，奇怪。。。

http://bbs.chinaunix.net/viewthread.php?tid=1453011&extra=&page=1

use LWP::Simple; if(my $googled=get("http://www.google.cn/finance/info?q=id-7521596")) {     print "\n";     my @info=split(/\,/,$googled);     for my $newinfo(@info)     {         if ($newinfo=~/\"(.*)\"\s\:\s\"(.*)\"/)         {          print "$1 : $2 \n              }       } }

http://www.google.cn/finance/info?q=id-7521596
的数据如下


// [
{
"id": "7521596"
,"t" : "000001"
,"e" : "SHA"
,"l" : "2,960.77"
,"l_cur" : "￥2,960.77"
,"ltt":"15:00"
,"lt" : "8月21日 15:00"
,"c" : "+49.19"
,"cp" : "1.69"
,"ccol" : "chr"
}
]


为什么，$newinfo=~/\"(.*)\"\s\:\s\"(.*)\"/)   匹配不到 ,"l" : "2,960.77" 呢

实际匹配的数据为：

t : 000001
e : SHA
lt : 8月21日 15:00
c : +49.19
cp : 1.69
ccol : chr

请教...



[ 本帖最后由 dayan_he 于 2009-8-23 19:01 编辑 ]

chenhebuaa

貌似我这里没有问题

aaaaa5aa

我这运行也没发现问题

dayan_he

LS楼上两位市直接读的文件，还是从WEB数据读取的？
我这里运行，普通的代码是没问题的，不过就是上证和深证获取数据匹配不完整

xti9er

建议你自己仔细调试一下

,"l" : "2,960.77"

我发觉在这里被,  逗号 截断了。

因为没有一只股票能上1K多的价格，所以不存在, 逗号，也就不会匹配不到。

[ 本帖最后由 xti9er 于 2009-8-24 16:02 编辑 ]

dayan_he

这个问题也考虑过
1.在get数据之后，对,做替换处理后，结果还是如此无法匹配到上证和深证这两个代码的指数，别的都Ok
2.将get后的数据直接保存为html文件，从文件读取后，匹配正常