desc table
然后按读表的方式解析字段即可
perl的格式化输出 printf("%-10s",$xxx)
perl的简单正则匹配$Type =~ /.*big.*$/
输出大量文本
my $content = sprintf <<FLAG_CONTENT;aaaaaaaaaaaaFLAG_CONTENT