Uses the select function. : Format « 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 » Format

Uses the select function.

   

#!/usr/local/bin/perl 



open (FILE1, ">file1"); 

$string = "this is a test"; 

select (FILE1); 

&writeline; 

select (STDOUT); 

&writeline; 

close (FILE1); 

 

sub writeline { 

    $~ = "WRITELINE"; 

    write; 

} 



format WRITELINE = 

I am writing @<<<<< to my output files. 

$string 



.

Related examples in the same category

1.	A program that uses a print format.
2.	A simple format example
3.	Define format and variables for the format
4.	Perl stores page number in the $% variable.
5.	Report field pictures
6.	Understanding Formats
7.	Using format to save data to a file
8.	^ fieldholder creates a filled paragraph

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.