Perl 教程 之 Perl 格式化输出 8
Perl 格式化输出
Perl 是一个非常强大的文本数据处理语言。
Perl 中可以使用 format 来定义一个模板，然后使用 write 按指定模板输出数据。
格式变量
$~ ($FORMAT_NAME) ：格式名字 $^ ($FORMAT_TOP_NAME) ：当前的表头格式名字存储在
$% ($FORMAT_PAGE_NUMBER) ：当前输出的页号
$= ($FORMAT_LINES_PER_PAGE) ：每页中的行数
$| ($FORMAT_AUTOFLUSH) ：是否自动刷新输出缓冲区存储
$^L ($FORMAT_FORMFEED) ：在每一页(除了第一页)表头之前需要输出的字符串存储在
输出到其它文件
默认情况下函数write将结果输出到标准输出文件STDOUT，我们也可以使它将结果输出到任意其它的文件中。最简单的方法就是把文件变量作为参数传递给write，如：
write(MYFILE);
以上代码write就用默认名为MYFILE的打印格式输出到文件MYFILE中。
但是这样就不能用$~变量来改变所使用的打印格式。系统变量$~只对默认文件变量起作用，我们可以改变默认文件变量，改变$~，再调用write。
我们可以使用select改变默认文件变量时，它返回当前默认文件变量的内部表示，这样我们就可以创建子程序，按自己的想法输出，又不影响程序的其它部分。
实例
!/usr/bin/perl
if (open(MYFILE, ">>tmp")) {
select (MYFILE); # 使得默认文件变量的打印输出到MYFILE中
$~ = "OTHER";
write; # 默认文件变量，打印到select指定的文件中，必使用$~指定的格式 OTHER
format OTHER =
使用定义的格式输入到文件中
.
close MYFILE;
}
执行成功后，我们可以查看 tmp 文件的内容，如下所示：
$ cat tmp
输入到文件中
