酷播亮新聞
最棒的知識補給站

Perl 格式化輸出

Perl 是一個非常強大的文本數據處理語言。

Perl 中可以使用 format 來定義一個模板,然後使用 write 按指定模板輸出數據。

Perl 格式化定義語法格式如下:

format FormatName =fieldline
value_one, value_two, value_three
fieldline
value_one, value_two.

參數解析:

  • FormatName :格式化名稱。

  • fieldline :一個格式行,用來定義一個輸出行的格式,類似 @,^,<,>,| 這樣的字元。

  • value_one,value_two…… :數據行,用來向前面的格式行中插入值,都是perl的變數。

  • . :結束符號。

以下是一個簡單是格式化實例:

實例

#!/usr/bin/perl$text = “google runoob taobao”;formatSTDOUT =first: ^<<<<< # 左邊對齊,字元長度為6$textsecond: ^<<<<< # 左邊對齊,字元長度為6$textthird: ^<<<< # 左邊對齊,字元長度為5,taobao 最後一個 o 被截斷$text .write

執行以上實例輸出結果為:

first: google
second: runoob
third: taoba

格式行(圖形行)語法

  • 格式行以 @ 或者 ^ 開頭,這些行不作任何形式的變數代換。

  • @ 欄位(不要同數組符號 @ 相混淆)是普通的欄位。

  • @,^ 後的 <, >,| 長度決定了欄位的長度,如果變數超出定義的長度,那麼它將被截斷。

  • <, >,| 還分別表示,左對齊,右對齊,居中對齊。

  • ^ 欄位用於多行文本塊填充。

值域格式

值域的格式,如下表所示:

格式 值域含義
@<<< 左對齊輸出
@>>> 右對齊輸出
@||| 中對齊輸出
@##.## 固定精度數字
@* 多行文本

每個值域的第一個字元是行填充符,當使用@字元時,不做文本格式化。

在上表中,除了多行值域@*,域寬都等於其指定的包含字元@在內的字元個數,例如:

@###.##

表示七個字元寬,小數點前四個,小數點後兩個。

實例如下:

實例

#!/usr/bin/perlformatEMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name$age@#####.##$salary===================================
.
select(STDOUT);
$~ = EMPLOYEE;
@n = (“Ali”, “Runoob”, “Jaffer”);@a = (20,30, 40);@s = (2000.00, 2500.00, 4000.000);
$i = 0;foreach(@n){$name = $_; $age = $a[$i]; $salary = $s[$i++]; write;}

以上實例輸出結果為:

===================================Ali 20
2000.00======================================================================Runoob 30
2500.00======================================================================Jaffer 40
4000.00===================================


Perl 格式化輸出

格式變數

  • $~ ($FORMAT_NAME) :格式名字 $^ ($FORMAT_TOP_NAME) :當前的表頭格式名字存儲在

  • $% ($FORMAT_PAGE_NUMBER) :當前輸出的頁號

  • $= ($FORMAT_LINES_PER_PAGE) :每頁中的行數

  • $| ($FORMAT_AUTOFLUSH) :是否自動刷新輸出緩衝區存儲

  • $^L ($FORMAT_FORMFEED) :在每一頁(除了第一頁)表頭之前需要輸出的字元串存儲在

以下是一個簡單是使用 $~ 格式化的實例:

實例

#!/usr/bin/perl
$~ = “MYFORMAT”; # 指定預設文件變數下所使用的格式write; # 輸出 $~ 所指定的格式formatMYFORMAT = # 定義格式 MYFORMAT ================================= Text# 我愛學習=================================
.write;

執行以上實例輸出結果為:

=================================
Text # 我愛學習==================================================================
Text # 我愛學習=================================

如果不指定$~的情況下,會輸出名為STDOUT的格式:

實例

#!/usr/bin/perlwrite; # 不指定$~的情況下會尋找名為STDOUT的格式formatSTDOUT =
~用~號指定的文字不會被輸出
—————- STDOUT格式
—————-
.

執行以上實例輸出結果為:

—————-
STDOUT格式—————-

以下實例我們通過添加報表頭部信息來演示 $^ 或 $FORMAT_TOP_NAME 變數的使用:

實例

#!/usr/bin/perlformatEMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name$age@#####.##$salary===================================
.
formatEMPLOYEE_TOP =
===================================NameAge===================================
.
select(STDOUT);
$~ = EMPLOYEE;$^ = EMPLOYEE_TOP;
@n = (“Ali”, “Runoob”, “Jaffer”);@a = (20,30, 40);@s = (2000.00, 2500.00, 4000.000);
$i = 0;foreach(@n){$name = $_; $age = $a[$i]; $salary = $s[$i++]; write;}

以上實例輸出結果為:

===================================Name Age======================================================================Ali 20
2000.00======================================================================Runoob 30
2500.00======================================================================Jaffer 40
4000.00===================================

我們也可以使用 $% 或 $FORMAT_PAGE_NUMBER 為報表設置分頁:

實例

#!/usr/bin/perlformatEMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name$age@#####.##$salary===================================
.
# 添加分頁 $% formatEMPLOYEE_TOP =
===================================NameAgePage @<
$%
===================================
.
select(STDOUT);
$~ = EMPLOYEE;$^ = EMPLOYEE_TOP;
@n = (“Ali”, “Runoob”, “Jaffer”);@a = (20,30, 40);@s = (2000.00, 2500.00, 4000.000);
$i = 0;foreach(@n){$name = $_; $age = $a[$i]; $salary = $s[$i++]; write;}

以上實例輸出結果為:

===================================Name Age Page 1======================================================================Ali 20
2000.00======================================================================Runoob 30
2500.00======================================================================Jaffer 40
4000.00===================================


輸出到其它文件

默認情況下函數write將結果輸出到標準輸出文件STDOUT,我們也可以使它將結果輸出到任意其它的文件中。最簡單的方法就是把文件變數作為參數傳遞給write,如:

write(MYFILE);

以上代碼write就用預設的名為MYFILE的列印格式輸出到文件MYFILE中。

但是這樣就不能用$~變數來改變所使用的列印格式。系統變數$~只對默認文件變數起作用,我們可以改變默認文件變數,改變$~,再調用write。

實例

#!/usr/bin/perlif(open(MYFILE, “>tmp”)){$~ = “MYFORMAT”;writeMYFILE; # 含文件變數的輸出,此時會列印與變數同名的格式,即MYFILE。$~里指定的值被忽略。formatMYFILE = # 與文件變數同名 =================================
輸入到文件中
=================================
.closeMYFILE;}

執行成功後,我們可以查看 tmp 文件的內容,如下所示:

$ cat tmp
=================================
輸入到文件中=================================

我們可以使用select改變默認文件變數時,它返回當前默認文件變數的內部表示,這樣我們就可以創建子程序,按自己的想法輸出,又不影響程序的其它部分。

實例

#!/usr/bin/perlif(open(MYFILE, “>>tmp”)){select(MYFILE); # 使得默認文件變數的列印輸出到MYFILE中$~ = “OTHER”;write; # 默認文件變數,列印到select指定的文件中,必使用$~指定的格式 OTHERformatOTHER =
=================================
使用定義的格式輸入到文件中
=================================
.
closeMYFILE;}

執行成功後,我們可以查看 tmp 文件的內容,如下所示:

$ cat tmp
=================================
輸入到文件中==================================================================
使用定義的格式輸入到文件中=================================

喜歡這篇文章嗎?立刻分享出去讓更多人知道吧!

本站內容充實豐富,博大精深,小編精選每日熱門資訊,隨時更新,點擊「搶先收到最新資訊」瀏覽吧!


請您繼續閱讀更多來自 程序員小新人學習 的精彩文章:
如有侵權請來信告知:酷播亮新聞 » Perl 格式化輸出