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;
}