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

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Report » Header 
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
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.