Perl 算号器

#!/usr/bin/perl
use DBI; # 生成随机数字0-999
$num=int(rand(999)); # 查找已经出过奖的数字 # 这个是已出过的中奖号码
$old=read_db("select * from old_papar"); # 这个是自己买的，且没中过的号码 #$user=read_db("select * from new_papar"); # 创建两个个哈希表
%old_number=(); %user_number=(); print $old->{'id'}; print $old->{'id'}; # 把数字循环存入列表中 #while(my $list=$old){ # $old_number{$list->{'id'}}=$list->{'number'}; #} #while(my $list=$user->fetchrow_hashref()){ # $user_number{$list->{'id'}}=$list->{'number'}; #}
while (($key,$values) =each %old_number){ print "$key--$valuesn"; } sub read_db{ local($sql)=shift; $in=DBI->connect("DBI:mysql:database=3d_database;host=localhost","root","mojige123") or die "No:$!n"; my $select=$in->prepare($sql); $select->execute(); return $select->fetchrow_hashref(); $in->disconnect(); }