Perl：如何将某些MySQL表视为utf8

Question

这是一个处理latin1中所有内容的系统，但我希望将此特定表读取为utf8，然后正确编码为JSON。

如何将连接切换到utf8，然后阅读，然后再将连接切换回？

我知道如何执行JSON，但我不知道MySQL。

我正在使用DBI MySQL驱动程序，这是一个旧的CGI程序。

Answer 1

您可以尝试这样的事情：

$dbh->do('set names utf8');

Answer 2

您可以这样更改连接编码：

$dbh->do("set names 'utf8';");

# ...do something with utf8 tables...

$dbh->do("set names 'latin1';");

# do something with latin1 tables

$dbh->disconnect;