You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
510 B
Perl
24 lines
510 B
Perl
5 years ago
|
format standardformat_top =
|
||
|
Employees
|
||
|
First Name Last Name ID Extension
|
||
|
--------------------------------------------
|
||
|
.
|
||
|
|
||
|
format standardformat =
|
||
|
@<<<<<<<<<<<<@<<<<<<<<<<<<@<<<<<<<<@<<<<
|
||
|
$firstname $lastname $ID $extension
|
||
|
.
|
||
|
|
||
|
$firstname = "B";
|
||
|
$lastname = "A";
|
||
|
$ID = 1234; $extension = x456;
|
||
|
open FILEHANDLE, ">report.frm" or die "Can't open file";
|
||
|
select FILEHANDLE;
|
||
|
|
||
|
select FILEHANDLE;
|
||
|
|
||
|
$~ = standardformat;
|
||
|
$^ = standardformat_top;
|
||
|
|
||
|
write;
|
||
|
close;
|