Write a format to a file : Output « Report « Perl






  1. Perl
  2. Report
  3. Output

Write a format to a file

   

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;








Related examples in the same category

1.Call write to output the format
2.Force a new page to output.
3.Output along with the template
4.Dynamic Report Writing
5.Writes out as many formatted lines of output as necessary.
6.Writes out multiple formatted lines of output and suppresses blank lines.
7.Writes out multiple formatted lines of output.