Perl 教程 之 Perl 格式化输出 3

Perl 格式化输出

Perl 是一个非常强大的文本数据处理语言。

Perl 中可以使用 format 来定义一个模板，然后使用 write 按指定模板输出数据。

格式变量

$~ ($FORMAT_NAME) ：格式名字 $^ ($FORMAT_TOP_NAME) ：当前的表头格式名字存储在
$% ($FORMAT_PAGE_NUMBER) ：当前输出的页号
$= ($FORMAT_LINES_PER_PAGE) ：每页中的行数
$| ($FORMAT_AUTOFLUSH) ：是否自动刷新输出缓冲区存储
$^L ($FORMAT_FORMFEED) ：在每一页(除了第一页)表头之前需要输出的字符串存储在

以下是一个简单是使用 $~ 格式化的实例：

实例

!/usr/bin/perl

$~ = "MYFORMAT"; # 指定默认文件变量下所使用的格式
write; # 输出 $~ 所指定的格式

format MYFORMAT = # 定义格式 MYFORMAT

  Text # 百度

=================================
.
write;
执行以上实例输出结果为：

=================================

  Text # 百度

=================================

  Text # 百度

=================================