Dynamic Report Writing : Output « Report « Perl






  1. Perl
  2. Report
  3. Output

Dynamic Report Writing

   


open(FH, "datebook") or die;  # Open a file for reading
open(SORT, "|sort") or die;   # Open a pipe to sort output

$field1="<" x 18;  # Create format strings
$field2="<" x 12;
$field3="|" x 10;
$field4="#" x 6 . ".##";
# Create the format template
$format=qq(
  format SORT=
    \@$field1\@$field2\@$field3\@$field4
    \$name, \$phone, \$birth, \$sal
  .
);

eval $format;
while(<FH>){
    ($name,$phone,$address,$birth,$sal)=split(":");
    ($first, $last)=split(" ", $name);
    $name=$last.", ". $first;
    write SORT;
}
close(FH);
close(SORT);








Related examples in the same category

1.Call write to output the format
2.Force a new page to output.
3.Output along with the template
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.