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