#!/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.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;