select name, date from
Пример
use Msql;
my $db = Msql->connect;
$db->selectdb('mydata');
my $output = $db->query(" select name, date from myothertable");
my ($name_type, $date_type) = $output->type;
for ($name_type) {
$_ eq &Msql: :CHAR_TYPE and do {
print ''name является CHAR';
last;
} $_ eq &Msql::INT_TYPE and do {
print 'name является INT'; last; } # и т.д....
}
# повторить для $date_type
