Perl 格式
格式是在 Perl 中用来输出报告的书写模板。Perl 有一种机制可以帮助生成简单的报告和图表。不是执行，而是声明格式，因此它们可以出现在程序中的任何点。除了 Perl 中的其他类型，格式有自己的命名空间，即名为“tron”的函数与名为“tron”的格式不同。但是，程序中文件句柄的名称是与该文件句柄关联的格式的默认名称。
定义格式
定义 Perl 格式的语法:
format FormatName =
fieldline
value_1, value_2, value_3
fieldline
value_1, value_2, value_3
.
–格式名称由格式名称表示。 –field line是一种用于格式化数据的特殊方式。Fieldline 也可以保存文本或字段固定器。 –值行表示/描述将输入到字段行的值。 –格式以单个句点(。) –字段持有者有空间存放后面要输入的数据。
字段持有者语法:
@<<<<<<< left-justified (with 7 field spaces by counting '@' and '<')
@||||||| center-justified
@###.#### numeric fieldholder
@* multiline fieldholder
使用格式
Write 关键字用于调用格式声明。
Write FormatName;
格式名是打开的文件句柄的名称，write 语句将输出发送到同一个文件句柄。为了将数据发送到标准输出，格式名称需要与标准输出文件句柄相关联。
注意:使用**select()**功能确保 STDOUT 是选定的文件句柄。
select (STDOUT);
为了通过设置新的格式名和 STDOUT 来关联格式名和 STDOUT，使用像 \(~** 或 **\)Format_Name 这样的变量
$~ = "Format_Name";
注意:要在除 STDOUT 以外的任何其他文件句柄中编写报告，请使用**select()**功能选择该文件句柄。
示例: 输入:使用 STDOUT。
#!/usr/bin/perl
print "Content-type: text/html\n\n";
@First_Name = qw(Karthik Raman Shivam Tarun);
@Last_Name = qw(Singh Biswas Anand Mishra);
@ID = qw(101 186 009 359);
@Phone_Number = qw(963x 885x 734x 921x);
format DATA =
@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<
$First_Name[$k] $Last_Name[$k] $ID[$k] $Phone_Number[$k]
.
select(STDOUT);
$~ = DATA;
$k = 0;
while ($k <= $#First_Name)
{
write;
$k++;
}
输出:
输入:使用其他文件句柄(将输出打印成文本文件。)
#!/usr/bin/perl
print "Content-type: text/html\n\n";
@First_Name = qw(Karthik Raman Shivam Tarun);
@Last_Name = qw(Singh Biswas Anand Mishra);
@ID = qw(101 186 009 359);
@Phone_Number = qw(963x 885x 734x 921x);
format DATA =
@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<
$First_Name[$k] $Last_Name[$k] $ID[$k] $Phone_Number[$k]
.
open(FILE, ">file.txt");
select FILE;
$~ = DATA;
$k = 0;
while ($k <= $#First_Name)
{
write;
$k++;
}
close FILE;
输出:
打印数据的文件:
报表页眉和页脚
页眉是出现在每页顶部的东西。不用定义模板，只需定义一个标题并将其分配给 \(^** 或 **\)FORMAT_NAME_TOP 。 页脚有固定尺寸。可以通过检查变量 $- 来实现。如果需要，您甚至可以使用下面给出的语法自己打印页脚，
format FORMAT_NAME_BOTTOM
End of Page $%
示例: 输入:使用 STDOUT
#!/usr/bin/perl
print "Content-type: text/html\n\n";
format DATA_TOP =
@||||||||||||||||||||||||||||||||||||||||||||||||||||
"Staff Members"
----------------------
First Last ID Phone
------------------------------------------------------
.
@First_Name = qw(Karthik Raman Shivam Tarun);
@Last_Name = qw(Singh Biswas Anand Mishra);
@ID = qw(101 186 009 359);
@Phone_Number = qw(963x 885x 734x 921x);
format DATA =
@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<
$First_Name[$k] $Last_Name[$k] $ID[$k] $Phone_Number[$k]
.
select (STDOUT);
$~ = DATA;
$^ = DATA_TOP;
$k = 0;
while ($k <= $#First_Name)
{
write;
$k++;
}
输出:
输入:将输出输入到文本文件中。
#!/usr/bin/perl
print "Content-type: text/html\n\n";
format DATA_TOP =
@||||||||||||||||||||||||||||||||||||||||||||||||||||
"Staff Members"
----------------------
First Last ID Phone
------------------------------------------------------
.
@First_Name = qw(Karthik Raman Shivam Tarun);
@Last_Name = qw(Singh Biswas Anand Mishra);
@ID = qw(101 186 009 359);
@Phone_Number = qw(963x 885x 734x 921x);
format DATA =
@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<
$First_Name[$k] $Last_Name[$k] $ID[$k] $Phone_Number[$k]
.
open (FILE, ">file.txt");
select FILE;
$~ = DATA;
$^ = DATA_TOP;
$k = 0;
while ($k <= $#First_Name)
{
write;
$k++;
}
close FILE;
输出:
打印数据的文件:
页码
当你有一份很长的报告，一页都装不下时，分页就出现了。像 \(%** 或 **\)FORMAT_PAGE_NUMBER 这样的变量与格式中的标题一起使用有助于将页码定义为多页。默认页面行数为 60，但也可以使用变量 \(=** 或 **\)FORMAT_LINES_PER_PAGE 手动设置。
示例:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
format DATA_TOP =
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
"[Page $%]"
@||||||||||||||||||||||||||||||||||||||||||||||||||||
"Staff Members"
----------------------
First Last ID Phone
------------------------------------------------------
.
@First_Name = qw(Karthik Raman Shivam Tarun);
@Last_Name = qw(Singh Biswas Anand Mishra);
@ID = qw(101 186 009 359);
@Phone_Number = qw(963x 885x 734x 921x);
format DATA =
@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<
$First_Name[$k] $Last_Name[$k] $ID[$k] $Phone_Number[$k]
.
select (STDOUT);
$~ = DATA;
$^ = DATA_TOP;
$= = 1;
$k = 0;
while ($k <= $#First_Name)
{
write;
$k++;
}
输出:
