Perl 算号器

amio555

　　周末在家没事干，突然想写算3d号码的计算器。但是没写完，因为有事情要忙。。
　　先记录下，下午出去回来继续改。



#!/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--$values\n";
}
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();
}