Mega Code Archive

 

Categories / Perl / Report

 

Put a variable in the report header

#!/usr/local/bin/perl -w     use English;     while (<ARGV>)     {         chomp;         ($number,$type,$name,$price,$desc) = split (/\|/);         write;     }     format STDOUT_TOP=     Count Item #  Item Type  Item Name      Price     Description   Page @>>>>>>     $FORMAT_PAGE_NUMBER     ------------------------------------------------------------------------------     .     format STDOUT=     @>>>> @|||||| @<<<<<<<<< @<<<<<<<<<<<<< $@####.##     ^<<<<<<<<<<<<<<<<<<<<<<<<<     $.,$number,$type,$name,$price,$desc     ~^<<<<<<<<<<<<<<<<<<<<<<<<<     $desc     ~^<<<<<<<<<<<<<<<<<<<<<<<<<     $desc     .