perl报表输出

scuess

　　转载本站文章请注明，转载自：扶凯[http://www.php-oa.com]
　　本文链接: http://www.php-oa.com/2009/10/19/perl-format.html
　　perl有最好的文本数据处理能力.这是大家都知道的.在perl本身有一个别的软件没有的小功能,就是Perl格式.它相当于简单的命令行报表和图表输出.这个需要先声明格式.创建格式的文件句柄.然后由@,^,,|这样的字符构成所谓的”报表”来输出图表.这样可以指定出行的外观.后面接数据项,最后用write来显示格式化的内容.
　　样例:
　　输出纪录格式输出象下边一样定义：
　　format NAME =
　　FORMLIST
　　.
　　第一部分,声明.如上.如果省略 NAME，上面的代码将定义格式输出 STDOUT。
　　第二部分,格式行FORMLIST 由一些有序的行组成，每一行都是下面三种类型中的一种：
　　1. 注释，以第一列为 # 来表示.
　　2. 一个格式行，用来定义一个输出行的格式,就是指上面讲的@,^,,|这样的字符
　　3. 参数行,数据行，用来向前面的格式行中插入值,都是perl的变量
　　第三部分, 结束 “.”来表示.
　　格式行(图形行)语法:
　　格式行中每个被替换的部分分别以 @ 或者 ^ 开头。这些行不作任何形式的变量代换。
　　@          字段(不要同数组符号 @ 相混淆)是普通的字段。
　　，|     字段的长度通过在格式符号 @，^ 后跟随特定长度的 ，| 来定义,同时，| 还分别表示，左对齐，右对齐，居中对齐。如果变量超出定义的长度，那么它将被截断。
　　^           字段，用来进行多行文本块填充。
　　$text = "aaa bbb ccc ";
　　format STDOUT =
　　first: ^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
　　"Page $%"
　　Passwd File
　　Name                Login    Office   Uid   Gid Home
　　------------------------------------------------------------------
　　.
　　format STDOUT =
　　@