Oracle監聽器日志格式化輸出

Oracle 監聽器日志文檔雖不複雜,看起來卻有點傷神,常留意的也就是用戶請求登錄時間,

IP,程序名稱等信息,如果將它格式化輸出看起來就明了多了.

 

#!/usr/bin/perl
use strict  ;

my  $hname="/app/oracle/product/8.1.7/network/log/listener.log" ;
my $line ;
open (FH, "<",  $hname) ;
while ($line= )
{
        if ($line  =~  m#(^.*) \* \(CONNECT.*PROGRAM=(.*)\)\(HOST=(.*?)\).*HOST=([\d.]*)# )
        {
                printf ("%-15s %-20s %-25s %15s\n",$4,$3,$1,$2)
        }
}
close FH ;

 

輸出格式如下:

172.17.21.114   YYN-21114            07-12月-2006 14:47:11     C:\PROGRAM FILES\ERP SYSTEM\PLAN_APPLY.EXE
172.17.20.44    YYN-2044             07-12月-2006 14:47:13     C:\Program Files\serve_sys\otl_app.exe
172.17.20.175   YYN-2093             07-12月-2006 14:47:16     C:\Program Files\serve_sys\otl_app.exe

.......

....