#!/usr/bin/perl
use DBI;
use Encode;
$user="root";
$passwd="1234567";
$dbh="192.168.32.232";
my $table=<STDIN>;
chomp $table;
print "\$table is $table\n";
my $table=encode("utf8",decode("gbk","$table"));
print "\$table is $table\n";
$dbh = DBI->connect("dbi:mysql:database=zjzc;host=192.168.32.232;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
$dbh->do("SET NAMES utf8");
##my $hostSql = qq{select script from publish_info where env='$env' and info='$app' and ip='$ip'};
my $sql=qq{select sn,name,productType from zjzc.Produ
mysql utf8 中文
最新推荐文章于 2021-02-11 04:12:13 发布
该Perl脚本用于连接到MySQL数据库,通过将GBK编码的中文转换为UTF8,然后执行SQL查询。它首先读取输入的表格名,设置字符集为UTF8,接着执行一个含有LIKE条件的SQL语句,从zjzc.Product表中检索数据,并打印结果。
摘要由CSDN通过智能技术生成