mysql - 字符集 utf8 在 perl 代码中不起作用

Question

我是 Perl 的新手，正在处理遗留应用程序。我的数据库中缺少一些特殊字符，如 ä、å、ö。之前Mysql数据库是latin1 collat​​ion，现在改为UTF-8 default。当我查看数据库值时，这些字符没有改变(仍会为 å、ö、ä 获取一些其他字符)。我查看了 perl 代码，发现此编码和字符集似乎不起作用。任何帮助表示赞赏。谢谢。

     use Encode qw/is_utf8 decode/;
     my($q) = CGI->new();
    $q->charset('utf-8');
    $q->header(-charset => 'utf-8', -expires => '-1d')

数据库连接

my($dbh) = DBI->connect($config{'dbDriver'},$config{'dbUser'},$config{'dbPass'}) or die "Kunde inte ansluta till $config{'dataSource'}: " . $DBI::errstr;

$dbh->{'mysql_enable_utf8'} = 1;
$dbh->do('SET NAMES utf8');

Answer 1

尝试使用 SET NAMES 'UTF-8'; 连接到数据库。