perl DBI 链接mysql,读取数据乱码

justinyun

UID: 25246
帖子: 2
积分: 4
在线时间: 10 分钟

1^# justinyun 发表于 2008-06-25 16:06

perl DBI 链接mysql,读取数据乱码

#!/usr/bin/perl -w
 use strict;
 use DBI;
 use CGI ':standard';
 use HTML::Template;
 use encoding "UTF-8";

print header(-charset => 'UTF-8', -expires => '-1d');
my $template = HTML::Template->new(filename => './TMP/select.tl');

## define
my $wtime;
my $rtime;
my $server;
my $admin;
my $failure_time;
my $failure_desc;
my $reason;
my $measure;

my @select;

my $dbh = DBI->connect("DBI:mysql:database=server_maintenance;host=localhost",
 "root", "123456", {'RaiseError' => 1});
my $sth = $dbh->prepare("set names utf8"); #这条去不去都一样
$sth = $dbh->prepare("select * from server_ckinfo where 1=1 order by WTIME");
$sth->execute();
while (my @row = $sth->fetchrow_array()){
 my %loop;
 $loop{id} = $row[0];
 $loop{wtime} = $row[1];
 $loop{rtime} = $row[2];
 $loop{server} = $row[3];
 $loop{admin} = $row[4];
 $loop{failure_time} = $row[5];
 $loop{failure_desc} = $row[6];
 $loop{reason} = $row[7];
 $loop{measure} = $row[8];
 push (@select,\%loop);
}
$sth->finish();
$dbh->disconnect();

$template->param( LOOPINFO => \@select );
print $template->output;

代码如上,使用到了HTML模板,数据库表里的编码是utf8,但读出来后就只是问号了
HTML 模板如下:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Server maintenace</title>
<meta http-equiv="Content-Language" content="utf-8" />
<meta http-equiv="Content-Type" content="text/htm; charset=utf-8" />
</head>
<body>
 <table>
 <tr>
 <td>ID</td>
 <td>warning time</td>
 <td>resovle time</td>
 <td>server</td>
 <td>admin</td>
 <td>failure_time</td>
 <td>failure_desc</td>
 <td>reason</td>
 <td>measure</td>
 </tr>
 <TMPL_LOOP NAME=LOOPINFO>
 <tr>
 <td><TMPL_VAR NAME=id></td>
 <td><TMPL_VAR NAME=wtime></td>
 <td><TMPL_VAR NAME=rtime></td>
 <td><TMPL_VAR NAME=server></td>
 <td><TMPL_VAR NAME=admin></td>
 <td><TMPL_VAR NAME=failure_time></td>
 <td><TMPL_VAR NAME=failure_desc></td>
 <td><TMPL_VAR NAME=reason></td>
 <td><TMPL_VAR NAME=measure></td>
 </tr>
 </TMPL_LOOP>
 </table
</body>
</html>

dajun

UID: 1292
帖子: 150
积分: 345
在线时间: 1 天 7 小时

2^# dajun 发表于 2008-06-25 18:34

建表的时候编码是utf8吗？

create table xxx ( xxx ) ENGINE=MyISAM DEFAULT CHARSET=utf8;

a_789_123

UID: 31260
帖子: 91
积分: 209
在线时间: 11 小时

3^# a_789_123 发表于 2008-06-27 09:14

估计你数据库的编码不是utf8，因为perl默认的字符就是utf8的
你检查一下你的数据库的字符类型吧

fdimim

UID: 17112
帖子: 1
积分: 2
在线时间: 10 分钟

4^# fdimim 发表于 2008-06-27 16:22

你在做insert和select之前，先执行下面的语句
$dbh->do("SET NAMES 'utf8');
试试。