技术头条 - 一个快速在微博传播文章的方式     搜索本站
您现在的位置首页 --> 其他 --> perl的格式化(Format)报表输出

perl的格式化(Format)报表输出

浏览:2332次  出处信息

    perl有最好的文本数据处理能力.这是大家都知道的.在perl本身有一个别的软件没有的小功能,就是Perl格式.它相当于简单的命令行报表和图表输出.这个需要先声明格式.创建格式的文件句柄.然后由@,^,<,>,|这样的字符构成所谓的"报表"来输出图表.这样可以指定出行的外观.后面接数据项,最后用write来显示格式化的内容.

    样例:

    输出纪录格式输出象下边一样定义:

     format NAME =                         

     FORMLIST

     .

    第一部分,声明.如上.如果省略 NAME,上面的代码将定义格式输出 STDOUT。

    第二部分,格式行FORMLIST 由一些有序的行组成,每一行都是下面三种类型中的一种:

     1. 注释,以第一列为 # 来表示.

     2. 一个格式行,用来定义一个输出行的格式,就是指上面讲的@,^,<,>,|这样的字符

     3. 参数行,数据行,用来向前面的格式行中插入值,都是perl的变量

    第三部分, 结束 "."来表示.

    格式行(图形行)语法:

    格式行中每个被替换的部分分别以 @ 或者 ^ 开头。这些行不作任何形式的变量代换。

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

    <, >,|     字段的长度通过在格式符号 @,^ 后跟随特定长度的 <, >,| 来定义,同时<,>,| 还分别表示,左对齐,右对齐,居中对齐。如果变量超出定义的长度,那么它将被截断。

    ^           字段,用来进行多行文本块填充。

以下是代码片段:
$text = "aaa bbb ccc ";
format STDOUT =
first: ^<<<<
    $text
second: ^<<<<
    $text
third: ^<<<<
    $text  
.
write

    这样它会输出如下

以下是引用片段:
first: aaa
second: bbb
third: ccc

    它默认会对字符串$text进行分解,象split.当然,是以$:存的内容做分割符.

    #(在 @ 或 ^ 后边)   右对齐的另外一种方式,在这些符号后面指定一个数字字段。你可以在这种区域中插入一个 . 来制定小数点的位置。如果这些区域的值包含一个换行符,那么只输出换行符前面的文本。如@.##就是输出二位小数.

    @*        可以被用来打印多行不截断的值,也就是多行没有格式化的输出.

    参数行(数据行)

    参数行指定参数的顺序必须跟相应的格式行的字段顺序一致。不同参数的表达式需要使用逗号分隔。

    参数的数据可以是标量数据,也可以是函数的返回值.

    参数行被处理之前所有的参数表达式都在列表环境中求值,因此单个列表表达式会产生多个列表元素。

    通过使用圆括弧将表达式括起来,可以使表达式扩展到多行 (因此,圆括弧必须是第一行的第一个标志)。这样就可以将值同相应的格式域对应起来方便阅读。

    表达式中,空白字符 \\n,\\t,和 \\f 总是被解释成单个空格

    格式变量

    $~ 中 ($FORMAT_NAME)          格式名字  

    $^ ($FORMAT_TOP_NAME)         当前的表头格式名字存储在

    $% ($FORMAT_PAGE_NUMBER)      当前输出的页号

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

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

    $^L ($FORMAT_FORMFEED)       在每一页(除了第一页)表头之前需要输出的字符串存储在

    注:这些变量以文件句柄为基础设定,因此你需要 select 与特定格式关联的文件句柄来影响这些格式变量

    调用输出

    write

    最后直接用write函数来显示格式化的文本内容.

    多页报表

    $%  当前输出的页面编号

    $=  页中的行数

    $-  还有多少剩下的行数

    在使用输出时,最好建一个表的顶部输出.这样看起来会好看很多.

    实例

以下是代码片段:
#!/usr/bin/perl
use strict;
use warnings;
 
my ($name,$login,$office,$uid,$gid, $home);
open FD,"</etc/passwd" or die "$?";
while(<FD>){
  ($name,$login,$office,$uid,$gid, $home) = split (":",$_);
    $^ = ’STDOUT_TOP’;
    $~ = ’STDOUT’;
    $= = 39;
    write;
}
 
 
 
format STDOUT_TOP =
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
"Page $%"
                           Passwd File
  Name                Login    Office   Uid   Gid Home
  ------------------------------------------------------------------
.
 
 
format STDOUT =
@<<<<<<<<<<<<<<<<<< @||||||| @<<<<<<@>>>> @>>>> @<<<<<<<<<<<<<<<<<
$name,               $login,  $office,$uid,$gid, $home
 
.

    输出如下

以下是引用片段:

                                                             Page 3
                           Passwd File
  Name                Login    Office   Uid   Gid Home
--------------------------------------------------------------------
sshd                   x     115    65534       /var/run/sshd
 
vde2-net               x     116      128       /var/run/vde2
 
mysql                  x     117      129 MySQL /var/lib/mysql
 
oracle                 x     1001    1001       /usr/lib/oracle/xe
 
tomcat6                x     118      130       /usr/share/tomcat6

建议继续学习:

  1. perl更新/修改/删除文本文件内容    (阅读:9437)
  2. perl大牛flw传说    (阅读:6514)
  3. perl模块Getopt::Std用法及实例-从命令行读取参数模块    (阅读:5883)
  4. [Perl] Template::Toolkit 模板技术.    (阅读:5368)
  5. 在perl中连接和使用sqlite做数据存储    (阅读:5058)
  6. Perl命令行常见用法及技巧    (阅读:4808)
  7. perl模块之MIME::Lite发送有附件的邮件    (阅读:4446)
  8. perl的expect使用方法,实现非交互式登录。    (阅读:4494)
  9. Perl 倒行分析文件方法。perl读文本文件,从末尾往前读.    (阅读:4439)
  10. perl大牛唐凤传说    (阅读:4273)
QQ技术交流群:445447336,欢迎加入!
扫一扫订阅我的微信号:IT技术博客大学习
© 2009 - 2024 by blogread.cn 微博:@IT技术博客大学习

京ICP备15002552号-1