用 Perl 定义报告页脚
在 Perl 中,虽然 $^ 或 $FORMAT_TOP_NAME 包含当前标头格式的名称,但没有相应的机制自动对页脚执行相同操作。如果您有一个固定大小的页脚,可以通过在每次 write() 之前检查变量 $- 或 $FORMAT_LINES_LEFT 来获取页脚,并在必要时使用如下定义的另一种格式自己打印页脚 -
format EMPLOYEE_BOTTOM = End of Page @< $% .
有关与格式相关的变量的完整集,请参阅 Perl 特殊变量 部分。
广告