desc table
然后按读表的方式解析字段即可
perl的格式化输出 printf("%-10s",$xxx)
perl的简单正则匹配$Type =~ /.*big.*$/
输出大量文本
my $content = sprintf <<FLAG_CONTENT;
aaaaaaaaaaaa
FLAG_CONTENT
desc table
然后按读表的方式解析字段即可
perl的格式化输出 printf("%-10s",$xxx)
perl的简单正则匹配$Type =~ /.*big.*$/
输出大量文本
my $content = sprintf <<FLAG_CONTENT;
aaaaaaaaaaaa
FLAG_CONTENT
转载于:https://www.cnblogs.com/liyulong1982/archive/2012/11/21/2780427.html