use DBI qw(:sql_types);
    
    my $type_map = {
        DBI::SQL_DATE           => {'name'=>'DATE'} ,
        DBI::SQL_TYPE_TIMESTAMP => {'name'=>'TIMESTAMP'} ,
        DBI::SQL_CHAR           => {'name'=>'CHAR','use_precision'=>'1
+'} ,
        DBI::SQL_VARCHAR        => {'name'=>'VARCHAR','use_precision'=
+>'1'},
        DBI::SQL_INTEGER        => {'name'=>'INT'},
        DBI::SQL_NUMERIC        => {'name'=>'NUMERIC','use_precision'=
+>'1', 'use_scale'=>'1'},
    };
    
    sub ddl_create_from_statement {
        my $param_ref = shift;
        my $statement = $param_ref->{'statement'};
        my $tablename = $param_ref->{'tablename'};
        
        my $colname_ref   = $statement->{NAME};
        my $type_ref      = $statement->{TYPE};
        my $precision_ref = $statement->{PRECISION};
        my $scale_ref     = $statement->{SCALE};
        my $nullable_ref  = $statement->{NULLABLE};
        
        my @fields;
        for ( my $i = 0 ; $i < @{$colname_ref} ; $i++ ) {
            
            ## Look the DDL word for the DBI::sql_type in $type_map 
            my $ddl_column = $colname_ref->[$i] . ' ' . $type_map->{$t
+ype_ref->[$i]}{'name'};
    
            my @precscale;
            ## Determine if we need precision and scale
            if ($type_map->{$type_ref->[$i]}{'use_precision'}) {
                push @precscale, $precision_ref->[$i];
            }
            if ($type_map->{$type_ref->[$i]}{'use_scale'}) {
                push @precscale, $scale_ref->[$i];
            }
            if (@precscale) {
                $ddl_column .= '(' . join(',',@precscale) . ')';
            }
            
            if (! $nullable_ref->[$i] ) {
                $ddl_column .= ' NOT NULL';
            }
            
            push @fields, "$ddl_column";
        }
        
        return "CREATE TABLE $tablename (\n" . join(",\n", @fields) . 
+"\n)";
    }
[download]