我們已經(jīng)見(jiàn)過(guò)用print函數(shù)將原始的未格式化的文本輸出到文件，本章講述如何用函數(shù)write和打印格式來(lái)生成格式化的輸出。
一、定義打印格式
定義打印格式的關(guān)鍵字為format，語(yǔ)法為：

format formatname =
lines_of_output
.
打印格式名formatname的命名規(guī)則與一般變量相同。結(jié)束行為一個(gè)句號(hào)，此行不能有任何其它字符，包括空格，句號(hào)必須是該行第一個(gè)字符。
打印格式的定義象子程序一樣可以放在任何地方，甚至可以放在條件語(yǔ)句中，但是最好把它們集中放在程序的開(kāi)頭或結(jié)尾。
二、顯示打印格式
打印格式的顯示有兩步：
1、將系統(tǒng)變量$~設(shè)成所要使用的格式
2、調(diào)用函數(shù)write
例如：

1 : #!/usr/local/bin/perl
2 :
3 : $~ = "MYFORMAT";
4 : write;
5 :
6 : format MYFORMAT =
7 : ===================================
8 : Here is the text I want to display.
9 : ===================================
10: .
結(jié)果輸出如下：

$ program
===================================
Here is the text I want to display.
===================================
$
如果不用$~指定打印格式，Perl解釋器就假定要使用的格式名與要寫(xiě)入的文件變量同名，在本例中，如果不指定使用MYFORMAT，則Perl解釋器試圖使用名為STDOUT的打印格式。