使用 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 ===================================
廣告