抽奖代码

最新推荐文章于 2023-05-15 16:27:00 发布

scan724

最新推荐文章于 2023-05-15 16:27:00 发布

阅读量654

点赞数

分类专栏： perl WeixinClient

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/50557440

版权

perl WeixinClient 专栏收录该内容

63 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这是一个使用Perl编写的Oracle数据库抽奖程序。它首先匹配特定的输入触发抽奖，然后通过DBI模块连接到Oracle数据库进行随机数生成和查询。如果生成的ID已经在cjxx表中存在，则会重新生成新的ID，直到找到未中奖的ID。最后将中奖ID插入到cjxx表中。

摘要由CSDN通过智能技术生成

elsif  (($recm =~/^抽奖$/)  and ($friend =~/赵xx/)){
$xx="";
		$recm =~ s/^\s+//;
		use DBI; 
		my $dbName = 'oadb';  
my $dbUser = 'query';  
my $dbUserPass = 'query';
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database " ;
my $XDATE = strftime("%Y%m%d%H%M%S",localtime());
$friend=encode("utf8",decode("gbk","$friend"));
my $sql = "   SELECT TRUNC(1+10*dbms_random.value) FROM dual ";    
my $sth = $dbh->prepare($sql);    
$sth->execute();  

$xx = $sth->fetchrow_array(); 



my $sql = "SELECT count(*)   FROM cjxx where id=$xx"; 
my $sth

了解本专栏