perl格式化输出一个简单实用的例子
?
$~ = "table_header";write;%stuinfo=(1=>'zhang san',2=>'li si',3=>'wang wu',4=>'zhao liu');foreach $key (keys %stuinfo){ $stuid=$key; $stuname=$stuinfo{$key}; $~ = "table_row"; write;}format table_header =---------------------id name---------------------.format table_row =@<<<<<< @<<<<<<<<<<<<<$stuid , $stuname.?
输出：
?
---------------------id name---------------------4 zhao li1 zhang san3 wang wu2 li si
?
注：
1、格式定义
format formatName=
#格式定义---------------------
#格式定义-----------------------
.
?
ps：格式定义以点号结束
?
2、格式调用
$~ = "table_header";
write;? ? ?
?
ps：如果不给$~赋值，默认是STDOUT
?
3、<<<<, 表示向左对齐，>>>>>>>>表示向右对齐，|||||||||||||||||表示中间对齐，一个符号代表一个变量中的字符
? ? ?比如你的<符号才3，而stuid有5位，则下方显示时只显示3位stuid，这点须注意
4、@,^表示下方的变量，所在行通常与对齐符号配合，下一行要有变量，看上例$stuid,$stuname
?
?
?