PNG  IHDR;IDATxܻn0K )(pA 7LeG{ §㻢|ذaÆ 6lذaÆ 6lذaÆ 6lom$^yذag5bÆ 6lذaÆ 6lذa{ 6lذaÆ `}HFkm,mӪôô! x|'ܢ˟;E:9&ᶒ}{v]n&6 h_tڠ͵-ҫZ;Z$.Pkž)!o>}leQfJTu іچ\X=8Rن4`Vwl>nG^is"ms$ui?wbs[m6K4O.4%/bC%t Mז -lG6mrz2s%9s@-k9=)kB5\+͂Zsٲ Rn~GRC wIcIn7jJhۛNCS|j08yiHKֶۛkɈ+;SzL/F*\Ԕ#"5m2[S=gnaPeғL lذaÆ 6l^ḵaÆ 6lذaÆ 6lذa; _ذaÆ 6lذaÆ 6lذaÆ RIENDB` #!/usr/bin/perl use DBI; ## get DBI type map my %map; foreach (@{ $DBI::EXPORT_TAGS{sql_types} }) { $map{&{"DBI::$_"}} = $_; } my $dbh = DBI->connect('DBI:mysql:test;mysql_emulated_prepare=1', 'root'); my $table = 'mysql5bug'; my $drop = "DROP TABLE IF EXISTS $table"; my $create = "CREATE TABLE $table (value decimal(5,2));"; my $select = "SELECT * FROM $table WHERE 1 = 0"; ## create table and get column types $dbh->do($drop) or die $dbh->errstr; $dbh->do($create) or die $dbh->errstr; my $sth = $dbh->prepare( $select ); my $rv = $sth->execute; my $fields = $sth->{NAME}; my $types = $sth->{TYPE}; ## print out column types foreach (0..$#$fields) { printf("%8s %3d %s\n", $fields->[$_], $types->[$_], $map{$types->[$_]}); } ## cleanup $dbh->do($drop) or die $dbh->errstr; $sth->finish; $dbh->disconnect; 1;