programming-examples/perl/Report/Put a variable in the report header.pl

28 lines
649 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/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
.