Perl格式化輸出用法指南
本文和大家重點討論一下Perl格式化輸出的用法，我們已經見過用print函數將原始的未格式化的文本輸出到文件，本文講述如何用函數write和打印格式來生成格式化的輸出。希望本文的介紹對你的學習有所幫助。
Perl格式化輸出
我們已經見過用print函數將原始的未格式化的文本輸出到文件，本文講述如何用函數write和打印格式來生成格式化的輸出。
一、Perl格式化輸出中定義打印格式
定義打印格式的關鍵字為format，語法為：
formatformatname=
lines_of_output
打印格式名formatname的命名規則與一般變量相同。結束行為一個句號，此行不能有任何其它字符，包括空格，句號必須是該行***個字符。
打印格式的定義象子程序一樣可以放在任何地方，甚至可以放在條件語句中，但是***把它們集中放在程序的開頭或結尾。
二、Perl格式化輸出中顯示打印格式
打印格式的顯示有兩步：
1、將系統變量$~設成所要使用的格式
2、調用函數write
例如：
- 1:#!/usr/local/bin/Perl
- 2:
- 3:$~="MYFORMAT";
- 4:write;
- 5:
- 6:formatMYFORMAT=
- 7:===================================
- 8:HereisthetextIwanttodisplay.
- 9:===================================
- 10:.
結果輸出如下：
- $program
- ===================================
- HereisthetextIwanttodisplay.
- ===================================
- $
如果不用$~指定打印格式，Perl解釋器就假定要使用的格式名與要寫入的文件變量同名，在本例中，如果不指定使用MYFORMAT，則Perl解釋器試圖使用名為STDOUT的打印格式。
三、Perl格式化輸出在打印格式中顯示值
我們使用打印格式的主要原因當然是格式化存貯在簡單變量或數組變量中的值從而生成可讀性好的輸出，這一目的用“值域”來實現。每個值域指定一個值，如變量或表達式，調用write函數時，該值就以值域指定的格式顯示。
1、通用的打印格式
打印格式的一個缺點是定義中包含了變量名，例如：
- formatMYFORMAT=
- ==========================================================
- Thewinningnumberis@<<<<<$winnum
- ==========================================================
◆當調用write輸出此格式時，必須記著它使用了變量$winnum。用子程序和局域變量就可以創建更通用的打印格式。下例從STDIN輸入一個文件并輸出五個出現頻率***的字母及出現次數。
2、格式和局域變量
在上例中，你可能已經注意到子程序write_letter調用write輸出字母及其出現次數，即使格式定義在子程序外部仍能正常工作。在第17行中將字母及其出現次數傳遞給該子程序，在子程序中，打印格式使用局域變量$letter和$value，這樣保證了在foreach循環中每次輸出當前的字母和值。
然而要注意的是，使用my定義的局域變量要求格式定義在子程序內部，否則就不會輸出，因此，用write輸出的局域變量一定要用local定義。（local和my詳見《子程序》一章）
注：Perl4中沒有my函數，故不會有此問題。
3、選擇值域格式
我們已經知道了打印格式和write函數怎么工作，現在來看看值域的格式，見下表：
格式值域含義
@<<<左對齊輸出
@>>>右對齊輸出
@|||中對齊輸出
@##.##固定精度數字
@*多行文本
每個值域的***個字符是行填充符，當使用@字符時，不做文本格式化。對文本的格式化稍后來講。
在上表中，除了多行值域@*，域寬都等于其指定的包含字符@在內的字符個數，例如：
@###.##
表示七個字符寬，小數點前四個，小數點后兩個。
4、輸出值域字符
在打印格式里，特定字符如@、<和>被看作值域定義，那么如何將它們輸出呢？方法如下：
formatSPECIAL=
Thislinecontainsthespecialcharacter@.
"@"
四、Perl格式化輸出中輸出到其它文件
缺省地，函數write將結果輸出到標準輸出文件STDOUT，我們也可以使它將結果輸出到任意其它的文件中。最簡單的方法就是把文件變量作為參數傳遞給write，如：
write(MYFILE);
這樣，write就用缺省的名為MYFILE的打印格式輸出到文件MYFILE中，但是這樣就不能用$~變量來改變所使用的打印格式。系統變量$~只對缺省文件變量起作用，我們可以改變缺省文件變量，改變$~，再調用write，例如：
select(MYFILE);
$~="MYFORMAT";
write;
當select改變缺省文件變量時，它返回當前缺省文件變量的內部表示，這樣我們就可以創建子程序，按自己的想法輸出，又不影響程序的其它部分，如下：
- subwrite_to_stdout{
- local($savefile,$saveformat);
- $savefile=select(STDOUT);
- $saveformat=$~;
- $~="MYFORMAT";
- write;
- $~=$saveformat;
- select($savefile);
- }
五、Perl格式化輸出中分頁
在輸出到打印機時，可以在每頁頂部輸出相應的信息，這樣的特殊文本叫頁眉。定義頁眉實際上就是定義名為filename_TOP的打印格式，例如給標準輸出文件定義頁眉如下：
formatSTDOUT_TOP=
ConsolidatedWidgetsInc.1994AnnualReport
◆在頁眉的定義中也可以包含值域，頁眉中經常使用的一個特殊值是當前頁碼，存貯在系統變量$%中，如：
formatSTDOUT_TOP=
Page@<<.
$%
◆我們也可以通過改變系統變量$^改變定義頁眉的打印格式名，與$~一樣，$^只對當前缺省文件起作用，因此可以與select函數結合使用。
缺省情況下，每頁長度為60行，可以通過改變$=來改變頁長，如：
$==66;#頁長設為66行
此賦值語句必須出現在***個write語句前。
注：一般使用分頁機制時不用print函數，因為當用write輸出時，Perl解釋器跟蹤每頁的當前行號。如果必須使用print而又不打亂頁計數，可以調整系統變量$-。$-的含義是當前行到頁末之間的行數，當$-達到零時，就開始新的一頁，調整方法如：
print("Hereisalineofoutput\n");
$--=1;
本文來自CSDN博客，轉載請標明出處：http://blog.csdn.net/Hank_Huang/archive/2006/06/16/802144.aspx
【編輯推薦】
