超清纯白嫩大学生无码网站,视频二区国产精品职场同事

Perl 格式化輸出

Perl 是一個非常強大的文本數(shù)據(jù)處理語言。

Perl 中可以使用 format 來定義一個模板，然后使用 write 按指定模板輸出數(shù)據(jù)。

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

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

參數(shù)解析：

FormatName ：格式化名稱。
fieldline ：一個格式行，用來定義一個輸出行的格式,類似 @,^,,| 這樣的字符。
value_one,value_two…… ：數(shù)據(jù)行，用來向前面的格式行中插入值,都是perl的變量。
. ：結(jié)束符號。

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

#!/usr/bin/perl

$text = "google youj taobao";
format STDOUT =
first: ^<<<<<  # 左邊對齊，字符長度為6
    $text
second: ^<<<<< # 左邊對齊，字符長度為6
    $text
third: ^<<<< # 左邊對齊，字符長度為5，taobao 最后一個 o 被截斷
    $text  
.
write

執(zhí)行以上實例輸出結(jié)果為：

first: google
second: youj
third: taoba

格式行(圖形行)語法

格式行以 @ 或者 ^ 開頭，這些行不作任何形式的變量代換。
@ 字段(不要同數(shù)組符號 @ 相混淆)是普通的字段。
@,^ 后的 <, >,| 長度決定了字段的長度，如果變量超出定義的長度,那么它將被截斷。
<, >,| 還分別表示,左對齊,右對齊,居中對齊。
^ 字段用于多行文本塊填充。

值域格式

值域的格式，如下表所示：

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

每個值域的第一個字符是行填充符，當(dāng)使用@字符時，不做文本格式化。

在上表中，除了多行值域@*，域?qū)挾嫉扔谄渲付ǖ陌址鸃在內(nèi)的字符個數(shù)，例如：

@###.##

表示七個字符寬，小數(shù)點前四個，小數(shù)點后兩個。

實例如下：

#!/usr/bin/perl

format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 
$name $age
@#####.##
$salary
===================================
.

select(STDOUT);
$~ = EMPLOYEE;

@n = ("Ali", "W3CSchool", "Jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);

$i = 0;
foreach (@n){
	$name = $_;
	$age = $a[$i];
	$salary = $s[$i++];
	write;
}

以上實例輸出結(jié)果為：

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

格式變量

$~ ($FORMAT_NAME) ：格式名字 $^ ($FORMAT_TOP_NAME) ：當(dāng)前的表頭格式名字存儲在
$% ($FORMAT_PAGE_NUMBER) ：當(dāng)前輸出的頁號
$= ($FORMAT_LINES_PER_PAGE) ：每頁中的行數(shù)
$| ($FORMAT_AUTOFLUSH) ：是否自動刷新輸出緩沖區(qū)存儲
$^L ($FORMAT_FORMFEED) ：在每一頁(除了第一頁)表頭之前需要輸出的字符串存儲在

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

#!/usr/bin/perl

$~ = "MYFORMAT"; # 指定缺省文件變量下所使用的格式
write;           # 輸出 $~ 所指定的格式

format MYFORMAT = # 定義格式 MYFORMAT 
=================================
      Text # W3Cschool教程
=================================
.
write;

執(zhí)行以上實例輸出結(jié)果為：

=================================
      Text # W3Cschool教程
=================================
=================================
      Text # W3Cschool教程
=================================

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

#!/usr/bin/perl

write;         # 不指定$~的情況下會尋找名為STDOUT的格式

format STDOUT =
~用~號指定的文字不會被輸出
----------------
  STDOUT格式
----------------
.

執(zhí)行以上實例輸出結(jié)果為：

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

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

#!/usr/bin/perl

format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 
$name $age
@#####.##
$salary
===================================
.

format EMPLOYEE_TOP =
===================================
Name                    Age
===================================
.

select(STDOUT);
$~ = EMPLOYEE;
$^ = EMPLOYEE_TOP;

@n = ("Ali", "W3CSchool", "Jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);

$i = 0;
foreach (@n){
   $name = $_;
   $age = $a[$i];
   $salary = $s[$i++];
   write;
}

以上實例輸出結(jié)果為：

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

我們也可以使用 $% 或 $FORMAT_PAGE_NUMBER 為報表設(shè)置分頁：

#!/usr/bin/perl

format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 
$name $age
@#####.##
$salary
===================================
.

# 添加分頁 $% 
format EMPLOYEE_TOP =
===================================
Name                    Age Page @<
                                 $%
=================================== 
.

select(STDOUT);
$~ = EMPLOYEE;
$^ = EMPLOYEE_TOP;

@n = ("Ali", "W3CSchool", "Jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);

$i = 0;
foreach (@n){
   $name = $_;
   $age = $a[$i];
   $salary = $s[$i++];
   write;
}

以上實例輸出結(jié)果為：

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

輸出到其它文件

默認情況下函數(shù)write將結(jié)果輸出到標(biāo)準(zhǔn)輸出文件STDOUT，我們也可以使它將結(jié)果輸出到任意其它的文件中。最簡單的方法就是把文件變量作為參數(shù)傳遞給write，如：

write(MYFILE);

以上代碼write就用缺省的名為MYFILE的打印格式輸出到文件MYFILE中。

但是這樣就不能用$~變量來改變所使用的打印格式。系統(tǒng)變量$~只對默認文件變量起作用，我們可以改變默認文件變量，改變$~，再調(diào)用write。

#!/usr/bin/perl

if (open(MYFILE, ">tmp")) {
$~ = "MYFORMAT";
write MYFILE; # 含文件變量的輸出，此時會打印與變量同名的格式，即MYFILE。$~里指定的值被忽略。

format MYFILE = # 與文件變量同名 
=================================
      輸入到文件中
=================================
.
close MYFILE;
}

執(zhí)行成功后，我們可以查看 tmp 文件的內(nèi)容，如下所示：

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

我們可以使用select改變默認文件變量時，它返回當(dāng)前默認文件變量的內(nèi)部表示，這樣我們就可以創(chuàng)建子程序，按自己的想法輸出，又不影響程序的其它部分。

#!/usr/bin/perl

if (open(MYFILE, ">>tmp")) {
select (MYFILE); # 使得默認文件變量的打印輸出到MYFILE中
$~ = "OTHER";
write;           # 默認文件變量，打印到select指定的文件中，必使用$~指定的格式 OTHER

format OTHER =
=================================
  使用定義的格式輸入到文件中
=================================
. 
close MYFILE;
}

執(zhí)行成功后，我們可以查看 tmp 文件的內(nèi)容，如下所示：

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