Perl 格式
格式是Perl中用来输出报告的写作模板。Perl有一种机制可以帮助生成简单的报告和图表。Formats不是被执行的,而是被声明的,所以它们可以在程序的任何地方出现。格式有自己的命名空间,与Perl中的其他类型不同,例如,名为 “tron “的函数与名为 “tron “的格式是不同的。然而,程序中的文件柄的名称是与该文件柄相关的格式的默认名称。
定义一个格式
定义一个Perl格式的语法。
- 格式的名称由 FormatName 表示 。
- 字段行 是用来格式化数据的一种特殊方式。
- 值行 表示/描述将被输入到 字段行中 的值 。
- 格式以 一个句号() 结束。
- 字段行为 以后输入的数据提供了空间。
字段 持有人的语法
使用一个格式
Write 关键字是用来调用格式声明的。
格式名称是一个打开的文件句柄的名称,写语句将输出发送到同一个文件句柄。为了将数据发送到 STDOUT ,格式名称需要与STDOUT文件句柄相关联。
注意: 使用 select() 函数来确保STDOUT是被选中的文件句柄。
为了将格式名称与STDOUT联系起来,通过设置新的格式名称与STDOUT,使用 $~ 或 $Format_Name 这样的变量。
注意: 如果要在STDOUT以外的任何其他文件柄中写报告,请使用 select() 函数选择该文件柄。
例如:
输入:使用STDOUT
输出 :
输入:使用其他文件手柄(将输出打印成文本文件)
输出 :
打印数据的文件:
报告的页眉和页脚
页眉是出现在每页顶部的东西。不需要定义模板,只需定义一个页眉并将其分配给 $^ 或 $FORMAT_NAME_TOP .
页脚 有一个固定的尺寸。它可以通过检查变量 $- 来实现 。 如果有必要,你甚至可以使用下面给出的语法,自己打印页脚。
例如:
输入:使用STDOUT
输出:
输入:获得输出到一个文本文件
输出:
打印数据的文件:
分页
当你有一个长的报告,不能放在一个页面上时,就需要分页。使用 $% 或 $FORMAT_PAGE_NUMBER 这样的变量以及格式中的标题有助于将页数定义为超过一页。一页的默认行数是60,但也可以通过使用变量 $= 或 $FORMAT_LINES_PER_PAGE 手动设置 。
例子
输出: