[PerlChina] mysql乱码问题

症状: 从mysql取出的数据需要Encode::encode('utf8', $data) 才能正确显示.

创建数据库:
create database mydb DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci
建表:
create table types
(
type_id int not null,
type_name varchar(16) not null,
description varchar(64)
)
ENGINE = MYISAM
DEFAULT CHARACTER SET = utf8
COLLATE = utf8_general_ci;

全部操作都是在DBI建立连接后并执行如下指令后执行的:
$dbh->do("SET NAMES 'UTF8'");
$dbh->do("SET CHARACTER_SET_SERVER='UTF8'");


mysql> show variables where variable_name like 'char%';
'character_set_client','latin1'
'character_set_connection','latin1'
'character_set_database','utf8'
'character_set_filesystem','binary'
'character_set_results','latin1'
'character_set_server','latin1'
'character_set_system','utf8'


我想拿出正确的utf8数据, 不想再encode
请问问题出在哪里?
谢谢!

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。