基于表的数据字典构造MySQL建表语句

表的数据字典格式如下：

如果手动写MySQL建表语句，确认麻烦，还不能保证书写一定正确。

写了个Perl脚本，可快速构造MySQL脚本语句。

脚本如下：

#!/usr/bin/perl
use strict;
my $line;
while(<>){
     s/\r\n//;
     if(/(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/){
     $line=$.' '.$.'('.$.') COMMENT \''.$.'\',';
     }elsif(/(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+/){
     $line=$.' '.$.' COMMENT \''.$.'\',';
}
     print "$line\n";
}

首先将表的内容copy到文本文件中，然后执行上述脚本

[root@centos-minion1 ~]# cat .txt
序号    字段名    字段描述    数据类型    长度    是否为空    是否主键
    OPRSEQ    操作流水    VARCHAR        NOT NULL    是
    NODEID    节点ID    DECIMAL        NOT NULL    是
    CREATEDATE    开始时间    DATETIME        NOT NULL    是
    FINISHDATE    结束时间    DATETIME
    STATUS1    状态    CHAR        NULL
    OPERTYPE    操作类型    DECIMAL        NULL
    STATUS2    实例状态    CHAR        NULL
    RESULTCODE    结果编码    VARCHAR        NULL
    RESULTMSG    结果信息    VARCHAR        NULL    

[root@centos-minion1 ~]# perl .pl .txt
字段名 数据类型(长度) COMMENT '字段描述',
OPRSEQ VARCHAR() COMMENT '操作流水',
NODEID DECIMAL() COMMENT '节点ID',
CREATEDATE DATETIME(NOT) COMMENT '开始时间',
FINISHDATE DATETIME COMMENT '结束时间',
STATUS1 CHAR() COMMENT '状态',
OPERTYPE DECIMAL() COMMENT '操作类型',
STATUS2 CHAR() COMMENT '实例状态',
RESULTCODE VARCHAR() COMMENT '结果编码',
RESULTMSG VARCHAR() COMMENT '结果信息',
RESULTMSG VARCHAR() COMMENT '结果信息',

生成的结果如上所述~