perl 解决mysql utf8中文乱码问题

最新推荐文章于 2021-01-28 11:39:08 发布

scan724

最新推荐文章于 2021-01-28 11:39:08 发布

阅读量2.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl DBI

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/61205779

Perl DBI 专栏收录该内容

54 篇文章 ¥39.90 ¥99.00

订阅专栏

本文详细介绍了在Perl中如何处理与MySQL交互时出现的UTF8中文乱码问题，包括设置数据库连接参数、数据插入与读取时的编码处理等关键步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

mysql utf8 中文问题:
zabbix:/root/sbin# cat a1.pl 
use DBI;
my $dbUser='DEVOPS';
my $user="root";
my $passwd="kjk123123";
my $dbh  = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.11.185;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
##防止utf-8中文乱码
@arr2=();
#$dbh->do("SET NAMES utf8");
my $hostSql = qq{select  IP,INFO,ENV from  machine_info where env='esx-192.168.4.41'};
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
my $selStmt = $dbh->prepare($hostSql);
$selStmt->execute();
$selStmt->bind_columns(undef, \$a1, \$a2, \$a3);
print "$a1,$a2,$a3\n";
print "11111111111111111\n";
 while( $selStmt->fetch() )
 { push (@arr2, "$a1  $a2  $a3\n" );
 };
print @arr2;


此时乱码

zabbix:/root/sbin# perl a1.pl 
,,
1111

了解本专栏