Top-of-the-Page Formatting : Header « Report « Perl





Top-of-the-Page Formatting

   

File:datafile

Tom:5:5:5/19/88
Jack:4:4:5/6/99
Peter:3:3:4/12/98

#!/bin/perl
open(DB, "datafile" ) || die "datafile: $!\n";
format STDOUT=
-----------------------
| EMPLOYEE INFORMATION |
-----------------------
Name: @<<<<<<<<<<<<
$name
-----------------------
Age: @##
$age
-----------------------
Salary: @#####.##
$salary
-----------------------
Date: @>>>>>>>>>>
$start

.
while(<DB>){
    ($name, $age, $salary, $start)=split(":");
     write ;
}

   
    
    
  










Related examples in the same category

1.Attach a header to a report
2.Add _TOP to add the page header
3.Add page number to page header
4.Top-of-page formatting