Uses the select function. : Format « Report « Perl






  1. Perl
  2. Report
  3. 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