strawBerry
#!/usr/bin/perluse strict;use DBI;# 连接到数据库,创建数据库my $dbh = DBI->connect("DBI:MysqL:test:localhost","root","test",{ raiseerror => 1,autoCommit => 0 }); $dbh->do("CREATE SCHEMA IF NOT EXISTS `gspIDer` DEFAulT CHaraCTER SET gbk ColLATE gbk_chinese_ci"); $dbh->commit(); $dbh->disconnect();# 连接到新的数据库my $dbh = DBI->connect("DBI:MysqL:gspIDer:localhost",autoCommit => 0 }); $dbh->do("SET character_set_connection = 'gbk' "); $dbh->do("SET character_set_clIEnt = 'gbk' "); $dbh->do("SET character_set_results = 'gbk' "); # 创建表$dbh->do("CREATE table IF NOT EXISTS t (ID INT PRIMARY KEY,name VARCHAR(16))"); # 插入数据$dbh->do("insert into t values(1,'我来了')");$dbh->do("insert into t values(2,'good')");$dbh->do("insert into t values(3,'g很好')");#查询数据my $sql = "SELECT * FROM t";my $dbconn = $dbh->prepare($sql);$dbconn->execute();my $table = $dbconn->fetchall_arrayref;my($i,$j);for $i ( 0 .. $#{$table} ) { for $j ( 0 .. $#{$table->[$i]} ) { print "$table->[$i][$j]\t"; } print "\n";}$dbh->commit();$dbh->disconnect();<>;
效果:
以上是内存溢出为你收集整理的Perl + mysql全部内容,希望文章能够帮你解决Perl + mysql所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)