Mega Code Archive

 

Categories / Perl / Report

 

Sets the length and print format for a page

#!/usr/local/bin/perl  open (OUTFILE, ">file1");  select (OUTFILE);  $~ = "WRITELINE";  $^ = "TOP_OF_PAGE";  $= = 60;  while ($line = <STDIN>) {      write;  }  close (OUTFILE);  format TOP_OF_PAGE =  - page @<  $%  .  format WRITELINE =  @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  $line  .