Perl + mysql

概述strawberry #!/usr/bin/perluse strict;use DBI;# 连接到数据库，创建数据库my $dbh = DBI->connect("DBI:mysql:test:localhost","root","test",{ RaiseError => 1, AutoCommit => 0 }); $dbh->do("CREATE SCHEM

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所遇到的程序开发问题。

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