第九章 打印与格式化输出.pptVIP

用select函数改变默认文件句柄时，它返回当前默认文件句柄的内部表示，这样就可以创建子程序，按自己的想法输出，又不影响程序的其它部份，如下面的程序段： sub write_to_stdout{ local{$savefile,$saveformat}; $savefile=select(STDOUT); $saveformat=$~; $~=“MYFORMAT”; write; $~=$saveformat; select($savefile); } 在输出到打印机时，可以每页顶部输出相应的信息，这些特殊文本称为页眉。定义页眉实际上就是定义名为filename_TOP的打印格式，如： format STDOUT_TOP= consolidated widgets inc.1004 Annual Report 对word熟悉的同学应该知道，页眉中常见的一个值就是当前的页码，在perl里，它是存在系统变量$%中的。 如： format STDOUT_TOP= page @ $% . 也可以通过改变系统$^改变定义页眉的打印格式名，与$~一样，$^只对当前默认文件起作用，可以和select函数结合使用。 默认情况下，每页长度为60行，但可以通过对$=的改变来改变页长 如： $==66; 意思是页长($=)为66页。 9.2.6 处理长字符串 在使用format语句时，每行数据都设置为特