perl 变量格式化

时间：2009-04-10 来源：aqcjsy1

perl中变量的格式化可以使用sprintf函数 $var1="bssdata";
$var2="bsswork.cust_hist_p";
$header=sprintf("%24s","header") . "|\n";
$var1=sprintf("%24s","$var1") . "|\n";
$var2=sprintf("%24s","$var2") . "|\n";
print "$header$var1$var2"; ^D
                  header|
                 bssdata|
     bsswork.cust_hist_p| 靠左 $var1="bssdata";
$var2="bsswork.cust_hist_p";
$header=sprintf("%-24s","header") . "|\n";
$var1=sprintf("%-24s","$var1") . "|\n";
$var2=sprintf("%-24s","$var2") . "|\n";
print "$header$var1$var2";
^D
header                  |
bssdata                 |
bsswork.cust_hist_p     |

相关阅读更多 +