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;