Top-of-page formatting : Header « Report « Perl






  1. Perl
  2. Report
  3. Header

Top-of-page formatting

   

#!/usr/bin/perl


use warnings;
use strict;

my $product = 'Product Name';
my $price = 99.00;
my $number = '111';
write();

$product = 'PC';
$price = 550.34521;
$number = '222222';
write();

$product = 'House';
$price = '5';
$number = '111111';
write();

format STDOUT_TOP =
Product                        Price          ID Number
----------------           ---------          ---------
.

format STDOUT =
@<<<<<<<<<<<<<<<<<<<<      $@####.##          @<<<<<<<<
$product,                     $price,          $number
.








Related examples in the same category

1.Attach a header to a report
2.Add _TOP to add the page header
3.Add page number to page header
4.Top-of-the-Page Formatting