perl读取彩票数据

以http://www.jslottery.com/LotteryList_SSQ.aspx为例，这时江苏福彩的地址

$lottery3dbase="http://www.jslottery.com/LotteryList_SSQ.aspx";

sub getlottery{
my (%lotterys)=();
my ($page)=@_;
my $url="$lottery3dbase?page=$page";
my $htmldoc=get($url);
while($htmldoc =~ /(/s*)(]*>.*?)(/s*)/sg){
my $table=$2;
if ($table =~ /width=/"90%/"/sg)
{
while($table =~ /]*?>/s*]*?>(.*?)/s*]*?>(.*?).*?/sg){
my $strong=$1;
my $divs=$2;
if($strong=~ /]*?>(/d+)/s){
my $group=$1;
$lotterys{$group}=[$1,$2,$3,$4,$5,$6,$7] if($divs=~ /(/d+).*?(/d+).*?(/d+).*?(/d+).*?(/d+).*?(/d+).*?(/d+).*?/s);
}
}
}
}
return %lotterys;
}

• perl读取彩票数据
• perl 读取json 数据
• java获取彩票数据,彩票API
• 彩票数据的自动更新
• BP神经网络处理彩票数据
• C#.NET彩票数据分析
• perl从文件中读取数据，然后输出，附一个蛋白质序列的读取
• 彩票
• 彩票
• 彩票
• 彩票
• 彩票
• 彩票
• 彩票
• 彩票
• 彩票
• 彩票
• perl读取excel文件
• c#中String与string的区别（收藏）
• 零起点教你如何破解软件和制做注册机
• 开博宣言
• 实训四天记录
• db4o发布7.2支持.NET
• perl读取彩票数据
• 测试一下
• Ubuntu 8.04 用虚拟光驱安装
• 2008-6-26
• DXperience 8.1.5 released on 27 Jue 2008 and What'a New
• eXpressApp Framework 8.1.5 released on 27 Jue 2008 and What'a New
• Udev Introduction
• Udev Introduction
• Udev Introduction