If you are just using MySQL, then you can benefit from some special attributes in DBD::mysql, such as mysql_is_num.

For example:

$dbh->do(qq{DROP TABLE IF EXISTS test.test1});
$dbh->do(qq{CREATE TABLE test.test1(
        f_int int,
        f_char char(10),
        f_double double,
        f_bigint BIGINT,
        f_varchar VARCHAR(10),
        f_date DATE,
        f_timestamp timestamp )});

my $sth= $dbh->prepare(qq{SELECT * from test.test1});

$sth->execute() or die "execution error ($DBI::errstr)\n";

my @columns = @{$sth->{NAME}};
for (0 .. $#columns)
{
    printf "%s %s numeric\n", 
        $columns[$_], 
        $sth->{mysql_is_num}[$_] ? "is" : "isn't";
}

__END__
output:
f_int is numeric
f_char isn't numeric
f_double is numeric
f_bigint is numeric
f_varchar isn't numeric
f_date isn't numeric
f_timestamp isn't numeric

[download]

HTH

In reply to Re: DBI scanning of column definitions by rnahi
in thread DBI scanning of column definitions by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.