29 lines
481 B
Perl
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 ;
|
||
|
|
}
|