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

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

Java

Java Tutorial

Java Source Code / Java Documentation

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

VBA / Excel / Access / Word

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

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

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.