Perl入门学习（十）格式化输出

perl使用format定义输出模板，使用write按照模板输出。

1、format 格式

format需要定义格式名称，格式行，数据行与结束符号“.”，格式如下：

format FormatName = # 定义格式名称
fieldline # 格式行，用来定义一个输出行的格式,类似 @,^,<,>,| 这样的字符。
value_one, value_two, value_three # 数据行，用来向前面的格式行中插入值,都是perl的变量。
fieldline
value_one, value_two
.

举例如下：

#!/usr/bin/perl

$text = "google it taobao";
format STDOUT =
first: ^<<<<<  # 左边对齐，字符长度为6
    $text
second: ^<<<<< # 左边对齐，字符长度为6
    $text
third: ^<<<< # 左边对齐，字符长度为5，taobao 最后一个 o 被截断
    $text  
.
write

运行结果如下：

$perl main.pl
first: google  # 左边对齐，字符长度为6
second: it     # 左边对齐，字符长度为6
third: taoba # 左边对齐，字符长度为5，taobao 最后一个 o 被截断

2、格式行

格式行以@或者^开头，只定义格式不适用变量。

@ 字段(不要同数组符号 @ 相混淆)是普通的字段。

@,^ 后的 <, >,| 长度决定了字段的长度，如果变量超出定义的长度,那么它将被截断。

<, >,| 还分别表示,左对齐,右对齐,居中对齐。

^ 字段用于多行文本块填充。

举例如下:

#!/usr/bin/perl

format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 
$name, $age
@#####.##
$salary
===================================
.
select(STDOUT);
$~ = EMPLOYEE;
@n = ("Ali", "it", "Jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
$i = 0;
foreach (@n){
    $name = $_;
    $age = $a[$i];
    $salary = $s[$i++]; ## $i++意思是执行完之后$i再加1
    write;
}

运行结果如下：

$perl main.pl
===================================
Ali                     20
  2000.00
===================================
===================================
it                      30
  2500.00
===================================
===================================
Jaffer                  40
  4000.00
===================================

3、格式变量

$~ ($FORMAT_NAME) ：格式名字

$^ ($FORMAT_TOP_NAME) ：表头格式名字

$% ($FORMAT_PAGE_NUMBER) ：页号

$= ($FORMAT_LINES_PER_PAGE)：每页中的行数

$| ($FORMAT_AUTOFLUSH) ：是否自动刷新输出缓冲区存储

举例如下：

#!/usr/bin/perl

format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @##.##         
$name, $age
@#####.##                              ## 格式行，采用整数5位，小数2位的输出格式
$salary
===================================
.                                      ## 结束符.
# 添加分页 $% 
format EMPLOYEE_TOP =
===================================
Name                    Age Page @<    ## 格式行，左对齐
$%                                     ## 数据行，输出页号
=================================== 
.

$~ = EMPLOYEE;                         ## 使用格式EMPLOYEE做报表                             
$^ = EMPLOYEE_TOP;                     ## 使用格式EMPLOYEE_TOP做表头
@n = ("Ali", "it", "Jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
$i = 0;
foreach (@n){
   $name = $_;
   $age = $a[$i];
   $salary = $s[$i++];
   write;
}

运行结果如下：

$perl main.pl
===================================
Name                    Age Page 1 
===================================
===================================
Ali                     20
  2000.00
===================================
===================================
it                      30
  2500.00
===================================
===================================
Jaffer                  40
  4000.00
===================================

4、输出到其它文件

默认情况下函数write将结果输出到标准输出文件STDOUT，我们也可以使它将结果输出到任意其它的文件中。最简单的方法就是把文件变量作为参数传递给write，如：

write(MYFILE);

使用select指定文件名，write后面就不需要选择文件名。

示例如下：

#!/usr/bin/perl
if (open(MYFILE, ">>tmp")) {
select (MYFILE); # 使得默认文件变量的打印输出到MYFILE中
$~ = "OTHER";
write;           # 默认文件变量，打印到select指定的文件中，必使用$~指定的格式 OTHER
format OTHER =
=================================
  使用定义的格式输入到文件中
=================================
. 
close MYFILE;
}

运行结果如下：

$ cat tmp 
=================================
      输入到文件中
=================================
=================================
  使用定义的格式输入到文件中
=================================

如果不使用select，那么format的格式名就需要与文件名相同。上面示例就要改成：

#!/usr/bin/perl
if (open(MYFILE, ">>tmp")) {
$~ = "OTHER";                  ## 这里的$~没有作用，因为write的文件变量名MYFILE与
                               ## format的格式名相同 
write（MYFILE）;           
format MYFILE =
=================================
  使用定义的格式输入到文件中
=================================
. 
close MYFILE;
}