如何使用 Perl 的 DBI 处理 unicode？

My 美味到 wp perl 脚本 http://edward.de.leau.net/wordpress-23-compatible-wordpress-delicious-daily-synchronization-script-20071114.html有效，但为所有“奇怪”的字符提供更奇怪的输出。 所以我尝试了

$description = decode_utf8( $description ); 

但这没有什么区别。我想要例如“go live”变成“go live”而不是“go live” 我怎样才能在 Perl 中处理 unicode 以便它起作用？

更新：我发现问题是设置 DBI 的 utf 我必须在 Perl 中设置：

my $sql = qq{SET NAMES 'utf8';};
$dbh->do($sql);

这是我必须设置的部分，很棘手。谢谢！

值得注意的是，如果您运行的 DBD::mysql 版本足够新（3.0008 上），您可以执行以下操作：$dbh->{'mysql_enable_utf8'} = 1;然后，在从/进入 DBI 的过程中，所有内容都会被解码（）/编码（）。