perl printf函数的使用

printf函数可以格式化输出字符串 用法： printf FILEHANDLE FORMAT,LIST printf FORMAT,LIST 例如： printf函数先格式化字符串再输出到指定文件或当前缺省文件中，如： ?printf OUTFILE (“You owe me %8.2f",$owing);此语句取出变量$owing的值并替换掉串中的%8.2f，%8.2f是域格式的例子，把$owing的值看作浮点数。 使用printf格式化输出 printf 函数有一个模板，叫格式字符串，它可以规定输出的格式，每个格式符有百分号开头，由字母结束。 格式化字符串中有3个格式符，则对应3个元素 %g ?输出数字，它将根据需要自动选用浮点数，整数或者指数 %d ?十进制整数 %x 十六进制 ?%o八进制 根据需要截尾 %f or %s 限制宽度 其中正数是右对齐，负数是左对齐 %s是针对字符串的，如%10s,%-15s % f 针对数字的，如%12.3f ?(表示输出共12个字符，包括小数点，并且小数点后面只有3位数) %% 输出百分号，不会使用后面列表中的元素 下面看一个对齐输出的例子： #!/usr/bin/perl use warnings; use strict; my @arr; while(<DATA>){ ? ? ? ? ?chomp; ? ? ? ? ?@arr=split; printf "%-50s%-20sn",$arr[0],$arr[1]; print "===================n"; } __DATA__ PRODUCT:NLSRTL ? VERSION:10.2.0.1.0 ? STATUS:Production PRODUCT:OracleDatabase10gEnterpriseEdition ? VERSION:10.2.0.1.0 ? STATUS:Prod PRODUCT:PL/SQL ? VERSION:10.2.0.1.0 ? STATUS:Production PRODUCT:TNSforLinux: ? VERSION:10.2.0.1.0 ? STATUS:Production 输出： PRODUCT:NLSRTL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?VERSION:10.2.0.1.0? =================== PRODUCT:OracleDatabase10gEnterpriseEdition ? ? ? ?VERSION:10.2.0.1.0? =================== PRODUCT:PL/SQL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?VERSION:10.2.0.1.0? =================== PRODUCT:TNSforLinux: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?VERSION:10.2.0.1.0? =================== 可能看着不齐，实际是右对齐！