programming-examples/perl/Report/Top-of-page formatting.pl
2019-11-15 12:59:38 +01:00

29 lines
481 B
Perl

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 ;
}