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