mysql utf8链接_mysql utf8 中文

#!/usr/bin/perl

use DBI;

use Encode;

$user="root";

$passwd="1234567";

$dbh="192.168.32.232";

my $table=;

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.Product where name like '%$table%'};

print "\$sql is $sql\n";

$sth=$dbh->prepare($sql);

$sth->execute;

while (@recs=$sth->fetchrow_array) {

foreach (@recs)

{print encode("gbk",decode("utf8","$_"))}

print "\n";

}

$dbh->disconnect;