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