Writes out multiple formatted lines of output and suppresses blank lines. : Output « Report « Perl






  1. Perl
  2. Report
  3. Output

Writes out multiple formatted lines of output and suppresses blank lines.

   
#!/usr/local/bin/perl 

@quotation = <STDIN>; 
$quotation = join("", @quotation); 
$~ = "QUOTATION"; 
write; 

format QUOTATION = 
Quotation for the day: 
----------------------------- 
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
$quotation 
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
$quotation 
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
$quotation 
----------------------------- 

.








Related examples in the same category

1.Call write to output the format
2.Force a new page to output.
3.Output along with the template
4.Dynamic Report Writing
5.Write a format to a file
6.Writes out as many formatted lines of output as necessary.
7.Writes out multiple formatted lines of output.