strawberry
#!/usr/bin/perl
use 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","root","test",{ RaiseError => 1, 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();
<>;
效果: