周末在家没事干，突然想写算3d号码的计算器。但是没写完，因为有事情要忙。。

先记录下，下午出去回来继续改。

#!/usr/bin/perluse 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();}