使用 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 次浏览

开启您的职业生涯

通过完成课程获取认证

开始
广告