perl文本输出对齐

一般输出：

print "$a\t$b\n";

 

向右对齐：

 

printf "%20s","1234567890\n";
printf "%20s"x@lines,@lines;

 

向左对齐：

printf "%-20s","1234567890\n";
printf "%-20s"x@lines,@lines;

当然可以用获取当前长度再填补空格的方法 ：

# 首先你要获取最长的字符串长度 

$max_len = length 'umc13logicmm_new';

#然后计算当前要输出的字符串长度

$cur_len = length 'smicll';

$space = ' ';

#计算长度差值，用空格填充，字符串重复操作符，由小写的字母x 表示

print "smicll".$space x ($max_len - $cur_len)."\t06-11_20:21:54\n";

print "umc13logicmm_new\t06-11_20:21:54\n";

转载于:https://www.cnblogs.com/xianghang123/archive/2012/08/09/2629960.html