Perl 格式化輸出
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 itread01 taobao";
format STDOUT =
first: ^<<<<< # 左邊對齊，字元長度為6
$text
second: ^<<<<< # 左邊對齊，字元長度為6
$text
third: ^<<<< # 左邊對齊，字元長度為5，taobao 最後一個 o 被截斷
$text
.
write
執行以上例項輸出結果為：
first: google second: itread01 third: taoba
格式行(圖形行)語法
- 格式行以 @ 或者 ^ 開頭，這些行不作任何形式的變數代換。
- @ 欄位(不要同陣列符號 @ 相混淆)是普通的欄位。
- @,^ 後的 <, >,| 長度決定了欄位的長度，如果變數超出定義的長度,那麼它將被截斷。
- <, >,| 還分別表示,左對齊,右對齊,居中對齊。
- ^ 欄位用於多行文字塊填充。
值域格式
值域的格式，如下表所示：
| 格式 | 值域含義 |
|---|---|
| @<<< | 左對齊輸出 |
| @>>> | 右對齊輸出 |
| @||| | 中對齊輸出 |
| @##.## | 固定精度數字 |
| @* | 多行文字 |
每個值域的第一個字元是行填充符，當使用@字元時，不做文字格式化。
在上表中，除了多行值域@*，域寬都等於其指定的包含字元@在內的字元個數，例如：
@###.##
表示七個字元寬，小數點前四個，小數點後兩個。
例項如下：
例項
#!/usr/bin/perl
format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name, $age
@#####.##
$salary
===================================
.
select(STDOUT);
$~ = EMPLOYEE;
@n = ("Ali", "itread01", "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 =================================== =================================== itread01 30 2500.00 =================================== =================================== Jaffer 40 4000.00 ===================================
格式變數
- $~ ($FORMAT_NAME) ：格式名字 $^ ($FORMAT_TOP_NAME) ：當前的表頭格式名字儲存在
- $% ($FORMAT_PAGE_NUMBER) ：當前輸出的頁號
- $= ($FORMAT_LINES_PER_PAGE) ：每頁中的行數
- $| ($FORMAT_AUTOFLUSH) ：是否自動重新整理輸出緩衝區儲存
- $^L ($FORMAT_FORMFEED) ：在每一頁(除了第一頁)表頭之前需要輸出的字串儲存在
以下是一個簡單是使用 $~ 格式化的例項：
例項
#!/usr/bin/perl
$~ = "MYFORMAT"; # 指定預設檔案變數下所使用的格式
write; # 輸出 $~ 所指定的格式
format MYFORMAT = # 定義格式 MYFORMAT
=================================
Text # 入門教學
=================================
.
write;
執行以上例項輸出結果為：
=================================
Text # 入門教學
=================================
=================================
Text # 入門教學
=================================
如果不指定$~的情況下，會輸出名為STDOUT的格式：
例項
#!/usr/bin/perl
write; # 不指定$~的情況下會尋找名為STDOUT的格式
format STDOUT =
~用~號指定的文字不會被輸出
----------------
STDOUT格式
----------------
.
執行以上例項輸出結果為：
---------------- STDOUT格式 ----------------
以下例項我們通過新增報表頭部資訊來演示 $^ 或 $FORMAT_TOP_NAME 變數的使用：
例項
#!/usr/bin/perl
format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name, $age
@#####.##
$salary
===================================
.
format EMPLOYEE_TOP =
===================================
Name Age
===================================
.
select(STDOUT);
$~ = EMPLOYEE;
$^ = EMPLOYEE_TOP;
@n = ("Ali", "itread01", "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 =================================== =================================== itread01 30 2500.00 =================================== =================================== Jaffer 40 4000.00 ===================================
我們也可以使用 $% 或 $FORMAT_PAGE_NUMBER 為報表設定分頁：
例項
#!/usr/bin/perl
format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name, $age
@#####.##
$salary
===================================
.
# 新增分頁 $%
format EMPLOYEE_TOP =
===================================
Name Age Page @<
$%
===================================
.
select(STDOUT);
$~ = EMPLOYEE;
$^ = EMPLOYEE_TOP;
@n = ("Ali", "itread01", "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 =================================== =================================== itread01 30 2500.00 =================================== =================================== Jaffer 40 4000.00 ===================================
輸出到其它檔案
預設情況下函式write將結果輸出到標準輸出檔案STDOUT，我們也可以使它將結果輸出到任意其它的檔案中。最簡單的方法就是把檔案變數作為引數傳遞給write，如：
write(MYFILE);
以上程式碼write就用預設名為MYFILE的列印格式輸出到檔案MYFILE中。
但是這樣就不能用$~變數來改變所使用的列印格式。系統變數$~只對預設檔案變數起作用，我們可以改變預設檔案變數，改變$~，再呼叫write。
例項
#!/usr/bin/perl
if (open(MYFILE, ">tmp")) {
$~ = "MYFORMAT";
write MYFILE; # 含檔案變數的輸出，此時會列印與變數同名的格式，即MYFILE。$~裡指定的值被忽略。
format MYFILE = # 與檔案變數同名
=================================
輸入到檔案中
=================================
.
close MYFILE;
}
執行成功後，我們可以檢視 tmp 檔案的內容，如下所示：
$ cat tmp
=================================
輸入到檔案中
=================================
我們可以使用select改變預設檔案變數時，它返回當前預設檔案變數的內部表示，這樣我們就可以建立子程式，按自己的想法輸出，又不影響程式的其它部分。
例項
#!/usr/bin/perl
if (open(MYFILE, ">>tmp")) {
select (MYFILE); # 使得預設檔案變數的列印輸出到MYFILE中
$~ = "OTHER";
write; # 預設檔案變數，列印到select指定的檔案中，必使用$~指定的格式 OTHER
format OTHER =
=================================
使用定義的格式輸入到檔案中
=================================
.
close MYFILE;
}
執行成功後，我們可以檢視 tmp 檔案的內容，如下所示：
$ cat tmp
=================================
輸入到檔案中
=================================
=================================
使用定義的格式輸入到檔案中
=================================