oracle 格式化报表输出,perl的格式化(Format)报表输出实现代码
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,"
while(){
($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
總結
以上是生活随笔為你收集整理的oracle 格式化报表输出,perl的格式化(Format)报表输出实现代码的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: php 循环链表,PHP实现循环链表功能
- 下一篇: linux 合计文件大小,linux下对