Create a Report Header using Perl

Sometime you would be interested in adding a header to your report. This header will be printed on top of each page. It is very simple to do this using Perl. Apart from defining a template you would have to define a header and assign it to $^ or $FORMAT_TOP_NAME variable −

Example

 Live Demo

#!/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;
}

Output

Now your report will look like −

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

Mohd Mohtashim

Updated on 29-Nov-2019 10:07:32

• Related Questions & Answers
• Define a Report Footer in Perl
• Create a Bootstrap 4 card header
• How to create a Mochawesome report in Cypress?
• How to create a Junit report in Cypress?
• How to create a teamcity report in Cypress?
• Create References in Perl
• How to create a responsive header with CSS?
• Sending a Plain Message using Perl
• How to create table header in HTML?
• In HTML how to create table header?
• How to read a HTTP header using JSP?
• How to create Array in Perl?
• Hello World using Perl.
• Getting a carriage return of report field in SAP Crystal Report
• Creating and Using Objects using Perl