perl 格式化输出——迹忆客-ag捕鱼王app官网

perl 是一个非常强大的文本数据处理语言。

perl 中可以使用 format 来定义一个模板，然后使用 write 按指定模板输出数据。

perl 格式化定义语法格式如下：

format formatname =
fieldline
value_one, value_two, value_three
fieldline
value_one, value_two
.

参数解析：

• formatname ：格式化名称。
• fieldline ：一个格式行，用来定义一个输出行的格式,类似 @,^,<,>,| 这样的字符。
• value_one,value_two…… ：数据行，用来向前面的格式行中插入值,都是perl的变量。
• . ：结束符号。

以下是一个简单是格式化实例：

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

执行以上实例输出结果为：

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

格式行(图形行)语法

• 格式行以 @ 或者 ^ 开头，这些行不作任何形式的变量代换。
• @ 字段(不要同数组符号 @ 相混淆)是普通的字段。
• @,^ 后的 <, >,| 长度决定了字段的长度，如果变量超出定义的长度,那么它将被截断。
• <, >,| 还分别表示,左对齐,右对齐,居中对齐。
• ^ 字段用于多行文本块填充。

值域格式

值域的格式，如下表所示：

每个值域的第一个字符是行填充符，当使用@字符时，不做文本格式化。

在上表中，除了多行值域@*，域宽都等于其指定的包含字符@在内的字符个数，例如：

@###.##

表示七个字符宽，小数点前四个，小数点后两个。

实例如下：

实例

#!/usr/bin/perl
 
format employee =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 
$name, $age
@#####.##
$salary
===================================
.
 
select(stdout);
$~ = employee;
 
@n = ("ali", "jiyik", "jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
 
$i = 0;
foreach (@n){
    $name = $_;
    $age = $a[$i];
    $salary = $s[$i  ];
    write;
}

以上实例输出结果为：

===================================
ali                     20
  2000.00
===================================
===================================
jiyik                  30
  2500.00
===================================
===================================
jaffer                  40
  4000.00
===================================

格式变量

• $~ ($format_name) ：格式名字 $^ ($format_top_name) ：当前的表头格式名字存储在
• $% ($format_page_number) ：当前输出的页号
• $= ($format_lines_per_page) ：每页中的行数
• $| ($format_autoflush) ：是否自动刷新输出缓冲区存储
• $^l ($format_formfeed) ：在每一页(除了第一页)表头之前需要输出的字符串存储在

以下是一个简单是使用 $~ 格式化的实例：

#!/usr/bin/perl
 
$~ = "myformat"; # 指定默认文件变量下所使用的格式
write;           # 输出 $~ 所指定的格式
 
format myformat = # 定义格式 myformat 
=================================
      text # 迹忆客
=================================
.
write;

执行以上实例输出结果为：

=================================
      text # 迹忆客
=================================
=================================
      text # 迹忆客
=================================

如果不指定$~的情况下，会输出名为stdout的格式：

#!/usr/bin/perl
 
write;         # 不指定$~的情况下会寻找名为stdout的格式
 
format stdout =
~用~号指定的文字不会被输出
----------------
  stdout格式
----------------
.

执行以上实例输出结果为：

----------------
  stdout格式
----------------

以下实例我们通过添加报表头部信息来演示 $^ 或 $format_top_name 变量的使用：

#!/usr/bin/perl
 
format employee =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 
$name, $age
@#####.##
$salary
===================================
.
 
format employee_top =
===================================
name                    age
===================================
.
 
select(stdout);
$~ = employee;
$^ = employee_top;
 
@n = ("ali", "jiyik", "jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
 
$i = 0;
foreach (@n){
   $name = $_;
   $age = $a[$i];
   $salary = $s[$i  ];
   write;
}

以上实例输出结果为：

===================================
name                    age
===================================
===================================
ali                     20
  2000.00
===================================
===================================
jiyik                  30
  2500.00
===================================
===================================
jaffer                  40
  4000.00
===================================

我们也可以使用 $% 或 $format_page_number 为报表设置分页：

#!/usr/bin/perl
 
format employee =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 
$name, $age
@#####.##
$salary
===================================
.
 
# 添加分页 $% 
format employee_top =
===================================
name                    age page @<
                                 $%
=================================== 
.
 
select(stdout);
$~ = employee;
$^ = employee_top;
 
@n = ("ali", "jiyik", "jaffer");
@a  = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
 
$i = 0;
foreach (@n){
   $name = $_;
   $age = $a[$i];
   $salary = $s[$i  ];
   write;
}

以上实例输出结果为：

===================================
name                    age page 1
===================================
===================================
ali                     20
  2000.00
===================================
===================================
jiyik                  30
  2500.00
===================================
===================================
jaffer                  40
  4000.00
===================================

输出到其它文件

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

write(myfile);

以上代码write就用默认名为myfile的打印格式输出到文件myfile中。

但是这样就不能用$变量来改变所使用的打印格式。系统变量$只对默认文件变量起作用，我们可以改变默认文件变量，改变$~，再调用write。

#!/usr/bin/perl
 
if (open(myfile, ">tmp")) {
$~ = "myformat";
write myfile; # 含文件变量的输出，此时会打印与变量同名的格式，即myfile。$~里指定的值被忽略。
 
format myfile = # 与文件变量同名 
=================================
      输入到文件中
=================================
.
close myfile;
}

执行成功后，我们可以查看 tmp 文件的内容，如下所示：

$ cat tmp 
=================================
      输入到文件中
=================================

我们可以使用select改变默认文件变量时，它返回当前默认文件变量的内部表示，这样我们就可以创建子程序，按自己的想法输出，又不影响程序的其它部分。

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

执行成功后，我们可以查看 tmp 文件的内容，如下所示：

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