全面認識Perl格式化輸出用法
本文和大家重點討論一下Perl格式化輸出的概念，主要包括打印格式，輸出到其它文件，分頁和格式化長字符串等內容，相信通過本文的介紹大家對Perl格式化輸出的用法有一定的了解。
Perl格式化輸出
一、打印格式
1、將系統變量$~設成所要使用的格式
2、調用函數write
如果不用$~指定打印格式，Perl解釋器就假定要使用的格式名與要寫入的文件變量同名。
二、在打印格式中顯示值
我們使用打印格式的主要原因當然是格式化存貯在簡單變量或數組變量中的值從而生成可讀性好的輸出，這一目的用“值域”來實現。每個值域指定一個值，如變量或表達式，調用write函數時，該值就以值域指定的格式顯示。
使用my定義的局域變量要求格式定義在子程序內部，否則就不會輸出，因此，用write輸出的局域變量一定要用local定義。
值域格式
@<<<左對齊輸出
@>>>右對齊輸出
@|||中對齊輸出
@##.##固定精度數字
@*多行文本
每個值域的***個字符是行填充符，當使用@字符時，不做文本格式化。
在打印格式里，特定字符如@、<和>被看作值域定義，需用"@"方式輸出字符本身。
三、輸出到其它文件
缺省地，函數write將結果輸出到標準輸出文件STDOUT，我們也可以使它將結果輸出到任意其它的文件中。最簡單的方法就是把文件變量作為參數傳遞給write，如：
write(MYFILE);
這樣，write就用缺省的名為MYFILE的打印格式輸出到文件MYFILE中，但是這樣就不能用$~變量來改變所使用的打印格式。系統變量$~只對缺省文件變量起作用，我們可以改變缺省文件變量，改變$~，再調用write。
當select改變缺省文件變量時，它返回當前缺省文件變量的內部表示，這樣我們就可以創建子程序，按自己的想法輸出，又不影響程序的其它部分。
四、分頁
在輸出到打印機時，可以在每頁頂部輸出相應的信息，這樣的特殊文本叫頁眉。定義頁眉實際上就是定義名為filename_TOP的打印格式。
在頁眉的定義中也可以包含值域，當前頁碼存貯在系統變量$%中。
我們也可以通過改變系統變量$^改變定義頁眉的打印格式名，與$~一樣，$^只對當前缺省文件起作用，因此可以與select函數結合使用。
缺省情況下，每頁長度為60行，可以通過改變$=來改變頁長，此賦值語句必須出現在***個write語句前。
注：一般使用分頁機制時不用print函數，因為當用write輸出時，Perl解釋器跟蹤每頁的當前行號。如果必須使用print而又不打亂頁計數，可以調整系統變量$-。$-的含義是當前行到頁末之間的行數，當$-達到零時，就開始新的一頁。#p#
五、格式化長字符串
我們已經學過值域@*可以輸出多行文本，但它完全將字符串原樣輸出，不加以格式化。
在Perl中對長字符串（包含換行）進行格式化的值域定義很簡單，只需把打頭的@字符換成^就行了，這種文本格式化中，Perl解釋器在一行中放置盡可能多的單詞。每當輸出一行文本，被輸出的子串就從變量中刪除，再次在域值中使用該變量就把剩下的字符串繼續按格式輸出。當內容已輸出完畢，該變量就成了空串，再輸出就會輸出空行，為避免輸出空行，可以在值域格式行首加一個~字符。
當字符串長度不明確時在域值格式行首加兩個~字符，這樣就會持續按格式輸出文本直到輸出完畢。
六、用printf格式化輸出
printf與C語言中的printf基本上是相同的。printf有兩個參數，一個是字符串，其中含有一個或多個域值形式，另一個是與各域值相對應的變量值按一定格式替換。
各種域值形式如下表：
%c單個字符
%d十進制整數
%e科學計數法形式的浮點數
%f普通形式（定點）浮點數
%g緊縮形式浮點數
%o八進制整數
%s字符串
%u無符號整數
%x十六進制整數
一些使用細節如下：
1、在格式d、o、u或x中，如果整數值較大或可能較大，可加個l字符，意為長整型，如%ld。
2、%字符后加正整數表示該域的最小寬度，如果輸出結果寬度不足，則向右對齊，前面用空格補足，如果該正整數以數字0打頭，則補足字符為0。若%字符后為負整數，則結果向右對齊。
3、浮點數域值(%c、%f和%g)中可以指定小數點前后的寬度，如%8.3f意為總寬度為8個字符，小數點后（即小數部分）為3個字符，多出的小數部分四舍五入。
4、在整數、字符或字符串的值域中使用如上的小數形式n.m，整數部分n為總寬度，小數部分m為輸出結果的***寬度，這樣就保證了輸出結果前至少有n-m個空格。
【編輯推薦】
