我们已经见过用print函数将原始的未格式化的文本输出到文件，本章讲述如何用函数write和打印格式来生成格式化的输出。
一、定义打印格式
定义打印格式的关键字为format，语法为：
format formatname =
lines_of_output
.
打印格式名formatname的命名规则与一般变量相同。结束行为一个句号，此行不能有任何其它字符，包括空格，句号必须是该行第一个字符。
打印格式的定义象子程序一样可以放在任何地方，甚至可以放在条件语句中，但是最好把它们集中放在程序的开头或结尾。
二、显示打印格式
打印格式的显示有两步：
1、将系统变量$~设成所要使用的格式
2、调用函数write
例如：
1 : #!/usr/local/bin/perl
2 :
3 : $~ = "myformat";
4 : write;
5 :
6 : format myformat =
7 : ===================================
8 : here is the text i want to display.
9 : ===================================
10: .
结果输出如下：
$ program
===================================
here is the text i want to display.
===================================
$
如果不用$~指定打印格式，perl解释器就假定要使用的格式名与要写入的文件变量同名，在本例中，如果不指定使用myformat，则perl解释器试图使用名为stdout的打印格式。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
