使用 Perl 建立報告頁首


有時,你可能對在報告中新增一個頁首感興趣。此頁首將列印在每頁的頂部。使用 Perl 執行此操作非常簡單。除了定義一個模板之外,你還必須定義一個頁首並將其分配給變數 $^ 或 $FORMAT_TOP_NAME −

示例

 現場演示

#!/usr/bin/perl

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

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

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

@n = ("Ali", "Raza", "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
===================================
===================================
Raza                  30
2500.00
===================================
===================================
Jaffer                40
4000.00
===================================

更新時間:2019 年 11 月 29 日

234 次瀏覽

開啟您的職業生涯

透過完成課程獲取認證

開始
廣告