Attach a header to a report : Header « Report « Perl






  1. Perl
  2. Report
  3. Header

Attach a header to a report

   

    #!/usr/local/bin/perl -w

    while (<ARGV>)
    {
        chomp;
        ($number,$type,$name,$price,$desc) = split (/\|/);
        write;
    }

    format STDOUT_TOP=
    Count Item #  Item Type  Item Name      Price     Description
    ------------------------------------------------------------------------

    format STDOUT=
    @>>>> @|||||| @<<<<<<<<< @<<<<<<<<<<<<< $@####.##
    ^<<<<<<<<<<<<<<<<<<<<<<<<<
    $.,$number,$type,$name,$price,$desc
    ~                                            ^<<<<<<<<<<<<<<<<<<<<<<<<<
    $desc
    ~                                            ^<<<<<<<<<<<<<<<<<<<<<<<<<
    $desc

    .








Related examples in the same category

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