Force a new page to output. : Output « Report « Perl






  1. Perl
  2. Report
  3. Output

Force a new page to output.

   

#!/usr/bin/perl -w

format WORKORDER=
itemB: @<<<<<<<<<<<<<<<<<<<<   itemC: @>>>>>>>>
$itemB, $itemC
itemA: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$itemA
Access:      @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$access
Deck: @<<    Stardate: @########.#
$deck, $stardate

.


# Top-of-page format, displays page number.
format WORKORDER_TOP=

 =Starfleet Work Orders= page @<<<
$%

.


open(WORKORDER, ">yourFile.txt" ) or die "Can't open yourFile.txt", $!;
select(WORKORDER);

$itemA = "itemA 1";
$itemB = "NO 1";
$itemC = "Urgent";
$access = "NO";
$deck   = 17;
$stardate = 200111.4;

write WORKORDER;


# Output page on next write.
$- = 0;


# Set up more data for output.
$itemA = "itemA 2";
$itemB = "No 2";
$itemC = "Low";
$access = "YEs";
$deck   = 12;
$stardate = 200102.5;

write WORKORDER;


# Output page.
$- = 0;


# Fill in more data.
$itemA = "itemA 3";
$itemB = "NO 3";
$itemC = "Low";
$access = "Yes";
$deck   = 10;
$stardate = 201002.0;

write WORKORDER;


# Close file.
close(WORKORDER);








Related examples in the same category

1.Call write to output the format
2.Output along with the template
3.Dynamic Report Writing
4.Write a format to a file
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.