use DBI;
my $dbUser='DEVOPS';
my $user="root";
my $passwd="kjk123123";
my @arr2="";
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中文乱码
$dbh->do("SET NAMES utf8");
my $hostSql = qq{select IP,INFO,ENV from machine_info where ENV='$gp' };
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";
while( $selStmt->fetch() )
{ push (@arr2, "$a1 $a2 $a3\n" );
};
$msg->reply("@arr2")}
中文乱码 $dbh->do("SET NAMES utf8");
最新推荐文章于 2021-05-18 03:13:06 发布
这篇博客介绍了如何在Perl中使用DBI模块连接MySQL数据库时防止出现utf-8中文乱码。通过设置`SET NAMES utf8`来确保数据正确显示。示例代码展示了查询数据库并处理查询结果的过程。
摘要由CSDN通过智能技术生成