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",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();
<>;

效果：