Sets the length and print format for a page. : Special Variables « Report « Perl

1. Perl
2. Report
3. Special Variables

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 

. 

   
    
    
  

Related examples in the same category