Select Code to Download

CREATE TABLE `t_test_type` (
    `f_num` INT(11) NULL DEFAULT NULL,
...
)
ENGINE=MyISAM
;

> SELECT column_name, data_type FROM information_schema.columns
WHERE table_name = 't_test_type' AND column_name IN ('f_num', 'f_str')
+;
...
+-------------+-----------+
2 rows in set (0.00 sec)

#!/usr/bin/env perl

...
while (my ($col, $col_info) = each %$info) {
    print "$col $col_info->{ DATA_TYPE } $col_info->{ TYPE_NAME }\n";
}

f_str 1 CHAR
f_num 4 INT