极客教程Perl 格式
格式是Perl中用来输出报告的写作模板。Perl有一种机制可以帮助生成简单的报告和图表。Formats不是被执行的，而是被声明的，所以它们可以在程序的任何地方出现。格式有自己的命名空间，与Perl中的其他类型不同，例如，名为 “tron “的函数与名为 “tron “的格式是不同的。然而，程序中的文件柄的名称是与该文件柄相关的格式的默认名称。
定义一个格式
定义一个Perl格式的语法。
format FormatName =
fieldline
value_1, value_2, value_3
fieldline
value_1, value_2, value_3
.
- 格式的名称由 FormatName 表示 。
- 字段行 是用来格式化数据的一种特殊方式。
- 值行 表示/描述将被输入到 字段行中 的值 。
- 格式以 一个句号（） 结束。
- 字段行为 以后输入的数据提供了空间。
字段 持有人的语法
@<<<<<<< left-justified (with 7 field spaces by counting '@' and '<')
@||||||| center-justified
@###.#### numeric fieldholder
@* multiline fieldholder
使用一个格式
Write 关键字是用来调用格式声明的。
Write FormatName;
格式名称是一个打开的文件句柄的名称，写语句将输出发送到同一个文件句柄。为了将数据发送到 STDOUT ，格式名称需要与STDOUT文件句柄相关联。
注意： 使用 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++;
}
输出：
