Perl写入MySQL数据库时的编码异常问题排查

嘿，我之前在Perl和MySQL的UTF-8处理上踩过不少坑，结合你的环境（Perl 5.10.1、CentOS 6、UTF-8 locale），给你几个关键的解决步骤，应该能搞定带重音/特殊字符的存储问题：

1. 给Perl脚本加上UTF-8支持声明 #

Perl 5.10+本身支持UTF-8，但默认不会自动识别脚本内的UTF-8字符串，也不会用UTF-8处理IO。在脚本开头加上这两行：

use utf8;  # 告诉Perl你的脚本源代码是UTF-8编码的
use open qw(:std :utf8);  # 让标准输入输出、文件IO默认用UTF-8

注意：如果你的脚本文件本身不是用UTF-8保存的，先把它转成UTF-8编码再加这行

2. 数据库连接时强制指定UTF-8编码（最关键！） #

哪怕数据库字段设置了utf8_unicode_ci，如果连接时用了默认编码，数据还是会乱码。用DBI连接MySQL时，一定要加上mysql_enable_utf8参数：

my $dbh = DBI->connect(
    "DBI:mysql:database=你的库名;host=你的主机",
    "用户名",
    "密码",
    {
        RaiseError => 1,
        mysql_enable_utf8 => 1,  # 让驱动自动处理UTF-8字符串的编码解码
        # 如果需要支持emoji等4字节UTF-8字符，再加下面这行：
        # mysql_enable_utf8mb4 => 1,
    }
);

这个参数会让DBD::mysql驱动自动把Perl的UTF-8字符串编码成UTF-8字节写入数据库，同时把数据库返回的UTF-8字节解码成Perl内部字符串，彻底避免编码转换错误。

3. 确保文件读取的编码正确 #

读取文件时，要明确指定文件的编码，避免Perl把UTF-8字节当成其他编码处理：

# 读取UTF-8编码的文件
open my $fh, '<:encoding(UTF-8)', '你的文件.txt' or die "打不开文件: $!";
while (my $line = <$fh>) {
    chomp $line;
    # 这里的$line已经是Perl内部的UTF-8字符串，可以直接插入数据库
}
close $fh;

如果你的文件是Latin1等其他编码，就把:encoding(UTF-8)改成对应的编码名，比如:encoding(latin1)，之后直接用内部字符串插入数据库即可（DBI会自动处理编码）。

4. 验证数据库端的编码配置 #

虽然你说字段是utf8_unicode_ci，但还是建议确认下数据库的全局编码设置：
登录MySQL执行这些命令：

SHOW VARIABLES LIKE 'character_set_%';
SHOW VARIABLES LIKE 'collation_%';

要确保character_set_client、character_set_connection、character_set_results都是utf8（或utf8mb4），collation_connection是utf8_unicode_ci。如果不是，可以在连接数据库后执行这句SQL：

$dbh->do("SET NAMES utf8 COLLATE utf8_unicode_ci");

不过用了mysql_enable_utf8参数后，驱动一般会自动设置这个，加这句只是双重保险。

关于Putty控制台乱码的补充 #

你提到Putty打印乱码，这个确实不是核心存储问题，但加上开头的use open qw(:std :utf8)后，Perl会用UTF-8输出到控制台，配合Putty的UTF-8翻译设置，应该就能正常显示特殊字符了。

按照上面的步骤调整后，带重音和特殊字符的字符串应该就能正确写入MySQL了。

内容的提问来源于stack exchange，提问作者Bob