Perl 算号器

周末在家没事干，突然想写算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
";
}

sub read_db{
  local($sql)=shift;
  $in=DBI->connect("DBI:mysql:database=3d_database;host=localhost","root","mojige123") or die "No:$!
";
  my $select=$in->prepare($sql);
  $select->execute();
  return $select->fetchrow_hashref();
  $in->disconnect();
}