get '/api/log_mon/get_log' => sub{
my $c = shift;
my $env = $c->param('env');
my $host = $c->param('host');
use DBI;
my $dbUser='DEVOPS';
my $user="root";
my $passwd="1234567";
my @arr2=();;
my $dbh = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.32.161;port=3306",$user,$passwd,{mysql_enable_utf8 => 1} ) or die "can't connect to database ". DBI-errstr;
my $hostSql = qq{select sn,host_name,host_ip,v_date,info,env from err_info where env='$env' and host_name='$host' order by v_date desc limit 20};
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
my $selStmt = $db
Mojo Mysql utf-8字符集 需要{mysql_enable_utf8 => 1}
最新推荐文章于 2021-01-27 13:57:36 发布
该博客介绍了如何在Perl中使用DBI模块连接到MySQL数据库,特别是强调了在连接字符串中设置`mysql_enable_utf8 => 1`以确保utf-8字符集正确处理的方法。示例代码展示了如何准备SQL查询、执行查询以及获取和处理查询结果。
摘要由CSDN通过智能技术生成