perl的格式化(Format)報表輸出實現代碼_perl

perl有最好的文本資料處理能力.這是大家都知道的.在perl本身有一個別的軟體沒有的小功能,就是Perl格式.它相當於簡單的命令列報表和圖表輸出.這個需要先聲明格式.建立格式的檔案控制代碼.然後由@,^,<,>,|這樣的字元構成所謂的”報表”來輸出圖表.這樣可以指定出行的外觀.後面接資料項目,最後用write來顯示格式化的內容.

範例:
輸出紀錄格式輸出象下邊一樣定義：
format NAME =
FORMLIST
.

第一部分,聲明.如上.如果省略 NAME，上面的代碼將定義格式輸出 STDOUT。
第二部分,格式行FORMLIST 由一些有序的行組成，每一行都是下面三種類型中的一種：
1. 注釋，以第一列為 # 來表示.
2. 一個格式行，用來定義一個輸出行的格式,就是指上面講的@,^,<,>,|這樣的字元
3. 參數行,資料行，用來向前面的格式行中插入值,都是perl的變數
第三部分, 結束 “.”來表示.

格式行(圖形行)文法:
格式行中每個被替換的部分分別以 @ 或者 ^ 開頭。這些行不作任何形式的變數代換。
@  欄位(不要同數組符號 @ 相混淆)是普通的欄位。

<， >，|     欄位的長度通過在格式符號 @，^ 後跟隨特定長度的 <， >，| 來定義,同時<，>，| 還分別表示，靠左對齊，靠右對齊，置中對齊。如果變數超出定義的長度，那麼它將被截斷。

^ 欄位，用來進行多行文字區塊填充。

複製代碼 代碼如下:

$text = "aaa bbb ccc ";
format STDOUT =
first: ^<<<<
    $text
second: ^<<<<
    $text
third: ^<<<<
    $text 
.
write

這樣它會輸出如下：
first: aaa
second: bbb
third: ccc

它預設會對字串$text進行分解,象split.當然,是以$:存的內容做分割符.
#(在 @ 或 ^ 後邊)   靠右對齊的另外一種方式,在這些符號後面指定一個數字欄位。你可以在這種地區中插入一個 . 來制定小數點的位置。如果這些地區的值包含一個分行符號，那麼只輸出分行符號前面的文本。如@.##就是輸出二位小數.
@*        可以被用來列印多行不截斷的值,也就是多行沒有格式化的輸出.

參數行(資料行)
參數行指定參數的順序必須跟相應的格式行的欄位順序一致。不同參數的運算式需要使用逗號分隔。
參數的資料可以是標量資料,也可以是函數的傳回值.
參數行被處理之前所有的參數運算式都在列表環境中求值，因此單個列表運算式會產生多個列表元素。
通過使用圓括弧將運算式括起來，可以使運算式擴充到多行 (因此，圓括弧必須是第一行的第一個標誌)。這樣就可以將值同相應的格式域對應起來方便閱讀。
運算式中，空白字元 \n，\t，和 \f 總是被解釋成單個空格

格式變數

$~ 中 ($FORMAT_NAME)          格式名字
$^ ($FORMAT_TOP_NAME)         當前的表頭格式名字儲存在
$% ($FORMAT_PAGE_NUMBER)      當前輸出的頁號
$= ($FORMAT_LINES_PER_PAGE)   每頁中的行數
$| ($FORMAT_AUTOFLUSH)      是否自動重新整理輸出緩衝區儲存
$^L ($FORMAT_FORMFEED)       在每一頁(除了第一頁)表頭之前需要輸出的字串儲存在

注:這些變數以檔案控制代碼為基礎設定，因此你需要 select 與特定格式關聯的檔案控制代碼來影響這些格式變數

調用輸出
write
最後直接用write函數來顯示格式化的常值內容.

多頁報表
$%  當前輸出的頁面編號
$=  頁中的行數
$-  還有多少剩下的行數

在使用輸出時,最好建一個表的頂部輸出.這樣看起來會好看很多.

執行個體代碼：

複製代碼 代碼如下:

#!/usr/bin/perl
use strict;
use warnings;

my ($name,$login,$office,$uid,$gid, $home);
open FD,"</etc/passwd" or die "$?";
while(<FD>){
  ($name,$login,$office,$uid,$gid, $home) = split (":",$_);
    $^ = 'STDOUT_TOP';
    $~ = 'STDOUT';
    $= = 39;
    write;
}

format STDOUT_TOP =
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
"Page $%"
                           Passwd File
  Name                Login    Office   Uid   Gid Home
------------------------------------------------------------------
.

format STDOUT =
@<<<<<<<<<<<<<<<<<< @||||||| @<<<<<<@>>>> @>>>> @<<<<<<<<<<<<<<<<<
$name,               $login,  $office,$uid,$gid, $home

.

輸出如下
                                                  Page 3
                           Passwd File
  Name                Login    Office   Uid   Gid Home
--------------------------------------------------------------------
sshd                   x     115    65534       /var/run/sshd
vde2-net               x     116      128       /var/run/vde2
mysql                  x     117      129 MySQL /var/lib/mysql
oracle                 x     1001    1001       /usr/lib/oracle/xe
tomcat6                x     118      130       /usr/share/tomcat6