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

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

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

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