本文和大家重點(diǎn)學(xué)習(xí)一下Perl格式化輸出的用法，之前我們已經(jīng)見過用print函數(shù)將原始的未格式化的文本輸出到文件，這里講述如何用函數(shù)write和打印格式來生成Perl格式化輸出。

Perl格式化輸出

我們已經(jīng)見過用print函數(shù)將原始的未格式化的文本輸出到文件，本章講述如何用函數(shù)write和打印格式來生成格式化的輸出。

一、Perl格式化輸出之定義打印格式

定義打印格式的關(guān)鍵字為format，語法為：

formatformatname=
lines_of_output

◆打印格式名formatname的命名規(guī)則與一般變量相同。結(jié)束行為一個句號，此行不能有任何其它字符，包括空格，句號必須是該行***個字符。
打印格式的定義象子程序一樣可以放在任何地方，甚至可以放在條件語句中，但是***把它們集中放在程序的開頭或結(jié)尾。

二、Perl格式化輸出之顯示打印格式

打印格式的顯示有兩步：
1、將系統(tǒng)變量$~設(shè)成所要使用的格式
2、調(diào)用函數(shù)write
例如：

1:#!/usr/local/bin/perl  
2:  
3:$~="MYFORMAT";  
4:write;  
5:  
6:formatMYFORMAT=  
7:===================================  
8:HereisthetextIwanttodisplay.  
9:===================================  
10:.  

結(jié)果輸出如下：

$program
===================================
HereisthetextIwanttodisplay.
===================================
$
如果不用$~指定打印格式，Perl解釋器就假定要使用的格式名與要寫入的文件變量同名，在本例中，如果不指定使用MYFORMAT，則Perl解釋器試圖使用名為STDOUT的打印格式。#p#

三、Perl格式化輸出之在打印格式中顯示值

我們使用打印格式的主要原因當(dāng)然是格式化存貯在簡單變量或數(shù)組變量中的值從而生成可讀性好的輸出，這一目的用“值域”來實(shí)現(xiàn)。每個值域指定一個值，如變量或表達(dá)式，調(diào)用write函數(shù)時，該值就以值域指定的格式顯示。

1、通用的打印格式

打印格式的一個缺點(diǎn)是定義中包含了變量名，例如：

formatMYFORMAT=
==========================================================
Thewinningnumberis@<<<<<<!
$winnum
==========================================================

◆當(dāng)調(diào)用write輸出此格式時，必須記著它使用了變量$winnum。用子程序和局域變量就可以創(chuàng)建更通用的打印格式。

2、格式和局域變量

在上例中，你可能已經(jīng)注意到子程序write_letter調(diào)用write輸出字母及其出現(xiàn)次數(shù)，即使格式定義在子程序外部仍能正常工作。在第17行中將字母及其出現(xiàn)次數(shù)傳遞給該子程序，在子程序中，打印格式使用局域變量$letter和$value，這樣保證了在foreach循環(huán)中每次輸出當(dāng)前的字母和值。
然而要注意的是，使用my定義的局域變量要求格式定義在子程序內(nèi)部，否則就不會輸出，因此，用write輸出的局域變量一定要用local定義。（local和my詳見《子程序》一章）
注：Perl4中沒有my函數(shù)，故不會有此問題。

3、選擇值域格式

我們已經(jīng)知道了打印格式和write函數(shù)怎么工作，現(xiàn)在來看看值域的格式，見下表：

每個值域的***個字符是行填充符，當(dāng)使用@字符時，不做文本格式化。對文本的格式化稍后來講。
在上表中，除了多行值域@*，域?qū)挾嫉扔谄渲付ǖ陌址鸃在內(nèi)的字符個數(shù)，例如：
@###.##
表示七個字符寬，小數(shù)點(diǎn)前四個，小數(shù)點(diǎn)后兩個。

4、輸出值域字符

在打印格式里，特定字符如@、<和>被看作值域定義，那么如何將它們輸出呢？方法如下：

formatSPECIAL=
Thislinecontainsthespecialcharacter@.
"@"  #p#

四、Perl格式化輸出之輸出到其它文件

缺省地，函數(shù)write將結(jié)果輸出到標(biāo)準(zhǔn)輸出文件STDOUT，我們也可以使它將結(jié)果輸出到任意其它的文件中。最簡單的方法就是把文件變量作為參數(shù)傳遞給write，如：
write(MYFILE);
這樣，write就用缺省的名為MYFILE的打印格式輸出到文件MYFILE中，但是這樣就不能用$~變量來改變所使用的打印格式。系統(tǒng)變量$~只對缺省文件變量起作用，我們可以改變?nèi)笔∥募兞?，改?~，再調(diào)用write，例如：
select(MYFILE);
$~="MYFORMAT";
write;

◆當(dāng)select改變?nèi)笔∥募兞繒r，它返回當(dāng)前缺省文件變量的內(nèi)部表示，這樣我們就可以創(chuàng)建子程序，按自己的想法輸出，又不影響程序的其它部分，如下：

subwrite_to_stdout{
local($savefile,$saveformat);
$savefile=select(STDOUT);
$saveformat=$~;
$~="MYFORMAT";
write;
$~=$saveformat;
select($savefile);
}

五、Perl格式化輸出之分頁

在輸出到打印機(jī)時，可以在每頁頂部輸出相應(yīng)的信息，這樣的特殊文本叫頁眉。定義頁眉實(shí)際上就是定義名為filename_TOP的打印格式，例如給標(biāo)準(zhǔn)輸出文件定義頁眉如下：
formatSTDOUT_TOP=
ConsolidatedWidgetsInc.1994AnnualReport

◆在頁眉的定義中也可以包含值域，頁眉中經(jīng)常使用的一個特殊值是當(dāng)前頁碼，存貯在系統(tǒng)變量$%中，如：
formatSTDOUT_TOP=
Page@<<.
$%

◆我們也可以通過改變系統(tǒng)變量$^改變定義頁眉的打印格式名，與$~一樣，$^只對當(dāng)前缺省文件起作用，因此可以與select函數(shù)結(jié)合使用。
缺省情況下，每頁長度為60行，可以通過改變$=來改變頁長，如：
$==66;#頁長設(shè)為66行

此賦值語句必須出現(xiàn)在***個write語句前。
注：一般使用分頁機(jī)制時不用print函數(shù)，因?yàn)楫?dāng)用write輸出時，Perl解釋器跟蹤每頁的當(dāng)前行號。如果必須使用print而又不打亂頁計(jì)數(shù)，可以調(diào)整系統(tǒng)變量$-。$-的含義是當(dāng)前行到頁末之間的行數(shù)，當(dāng)$-達(dá)到零時，就開始新的一頁，調(diào)整方法如：
print("Hereisalineofoutput\n");
$--=1;         #p#

六、Perl格式化輸出之格式化長字符串

我們已經(jīng)學(xué)過值域@*可以輸出多行文本，但它完全將字符串原樣輸出，不加以格式化。在Perl中對長字符串（包含換行）進(jìn)行格式化的值域定義很簡單，只需把打頭的@字符換成^就行了，這種文本格式化中，Perl解釋器在一行中放置盡可能多的單詞。每當(dāng)輸出一行文本，被輸出的子串就從變量中刪除，再次在域值中使用該變量就把剩下的字符串繼續(xù)按格式輸出。當(dāng)內(nèi)容已輸出完畢，該變量就成了空串，再輸出就會輸出空行，為避免輸出空行，可以在值域格式行首加一個~字符。見下例：

1:#!/usr/local/bin/perl  
2:  
3:@quotation=<STDIN>;  
4:$quotation=join("",@quotation);  
5:$~="QUOTATION";  
6:write;  
7:  
8:formatQUOTATION=  
9:Quotationfortheday:  
10:-----------------------------  
11:~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
12:$quotation  
13:~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
14:$quotation  
15:~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
16:$quotation  
17:-----------------------------  
18:.  
 

 運(yùn)行結(jié)果如下： 

$program  
Anysufficientlyadvancedprogramming  
languageisindistinguishablefrommagic.  
^D  
Quotationfortheday:  
-----------------------------  
Anysufficientlyadvancedprogramminglanguageis  
indistinguishablefrommagic.  
-----------------------------  
$  
 

 如果把打印格式中行首的~字符去掉，上面的輸出結(jié)果中就會多一行空行。很明顯，當(dāng)字符串長度不明確時，這種用法很不方便，原因就在于它指明了輸出的行數(shù)上限，超過這一上限的字符就不會被輸出，解決方法很簡單，就是在域值格式行首加兩個~字符，這樣就會持續(xù)按格式輸出文本直到輸出完畢，用此方法把上述程序改寫如下：

1:#!/usr/local/bin/perl  
2:  
3:@quotation=<STDIN>;  
4:$quotation=join("",@quotation);  
5:$~="QUOTATION";  
6:write;  
7:  
8:formatQUOTATION=  
9:Quotationfortheday:  
10:-----------------------------  
11:~~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
12:$quotation  
13:-----------------------------  
14:.  

這樣運(yùn)行結(jié)果相同。

七、用printfPerl格式化輸出

還有一種容易掌握和使用的Perl格式化輸出函數(shù)，那就是printf，它與C語言中的printf基本上是相同的。printf有兩個參數(shù)，一個是字符串，其中含有一個或多個域值形式，另一個是與各域值相對應(yīng)的變量值按一定格式替換，如：
printf("ThenumberIwanttoprintis%d.\n",$number);
各種域值形式如下表：

一些使用細(xì)節(jié)如下：

1、在格式d、o、u或x中，如果整數(shù)值較大或可能較大，可加個l字符，意為長整型，如%ld。
2、%字符后加正整數(shù)表示該域的最小寬度，如果輸出結(jié)果寬度不足，則向右對齊，前面用空格補(bǔ)足，如果該正整數(shù)以數(shù)字0打頭，則補(bǔ)足字符為0。若%字符后為負(fù)整數(shù)，則結(jié)果向右對齊。
3、浮點(diǎn)數(shù)域值(%c、%f和%g)中可以指定小數(shù)點(diǎn)前后的寬度，如%8.3f意為總寬度為8個字符，小數(shù)點(diǎn)后（即小數(shù)部分）為3個字符，多出的小數(shù)部分四舍五入。
4、在整數(shù)、字符或字符串的值域中使用如上的小數(shù)形式n.m，整數(shù)部分n為總寬度，小數(shù)部分m為輸出結(jié)果的***寬度，這樣就保證了輸出結(jié)果前至少有n-m個空格。
 

【編輯推薦】

1. Perl格式化輸出用法解析
2. Perl文件句柄概念詳解
3. 學(xué)習(xí)筆記 詳解Perl格式化輸出
4. Perl學(xué)習(xí)筆記----Perl格式化輸出詳解
5. 術(shù)語匯編 Perl變量中Perl關(guān)聯(lián)數(shù)組用法解析