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 |
$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 |
相关阅读 更多 +
