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

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Report » 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

1.	The format Statement Special Variables
2.	Using new line character
3.	Assign $~ to format

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.