desc table
然后按读表的方式解析字段即可
perl的格式化输出 printf("%-10s",$xxx)
perl的简单正则匹配$Type =~ /.*big.*$/
输出大量文本
my $content = sprintf <<FLAG_CONTENT;aaaaaaaaaaaaFLAG_CONTENT
posted on 2012-11-21 11:37 李玉龙 阅读(164) 评论(0) 编辑 收藏 举报
