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";