Perl 算号器

概述周末在家没事干，突然想写算3d号码的计算器。但是没写完，因为有事情要忙。。 先记录下，下午出去回来继续改。 #!/usr/bin/perluse DBI; # 生成随机数字0-999$num=int(rand(999)); # 查找已经出过奖的数字 # 这个是已出过的中奖号码$old=read_db("select * from old_papar"); # 这个是自己买的，且没中过的

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

总结

以上是内存溢出为你收集整理的Perl 算号器全部内容，希望文章能够帮你解决Perl 算号器所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。