[仙子創(chuàng)造]用Perl寫一套服務(wù)監(jiān)控系統(tǒng)

蘭花仙子

各位對Perl在系統(tǒng)管理中的應(yīng)用有所疑惑的朋友，可看看偶寫的這個監(jiān)控系統(tǒng)。
目前已在偶們廣州公司應(yīng)用，監(jiān)控100多臺RH Linux Servers。
代碼偶業(yè)余寫的，只花了1天半時間，不足在所難免，大家僅供參考吧。

79hy

3ks,發(fā)現(xiàn)仙子同學(xué)還是很牛掰的～

charmesp

強,多學(xué)習(xí)多學(xué)習(xí)..
哪有更多的例子 去學(xué)習(xí)

福瑞哈哥

看了pdf，代碼沒仔細看，排版挺好的，是用latex還是什么？

蘭花仙子

原帖由 福瑞哈哥 于 2007-1-12 16:41 發(fā)表
看了pdf，代碼沒仔細看，排版挺好的，是用latex還是什么？

就是word了。

79hy

RT：我找了好久沒找到，每次都是參考別人的程序用一個參數(shù)，有系統(tǒng)介紹的資料最好了。謝謝～～

蘭花仙子

原帖由 79hy 于 2007-1-12 17:06 發(fā)表
RT：我找了好久沒找到，每次都是參考別人的程序用一個參數(shù)，有系統(tǒng)介紹的資料最好了。謝謝～～

perldoc POSIX

79hy

中文手冊。呵呵�？雌饋砜�。呵呵。如果有，謝謝共享啦～～

|

1. 
   
2. 看了一下還不錯
   
3. 兩點建議
   
4. 命令你可以這么寫
   
5. %cmd=(
   
6.             cmd1=>sub{},
   
7.             .....................
   
8.             );
   
9. die "error"  unless defined  $cmd{lc $key};
   
10. @warn=@{[$cmd{lc $key}()]} and push @warnings,"error @{[@warn]}";
    
11. 
    
12. 同一個文件避免多次stat調(diào)用用 _
    

復(fù)制代碼

flyhu

不錯，很好，給我很大的參考意義。

我目前也在做一個監(jiān)控系統(tǒng)，剛剛基礎(chǔ)perl，已經(jīng)感受到了一些perl的優(yōu)點。

我的監(jiān)控系統(tǒng)的結(jié)構(gòu)是這樣的：任務(wù)調(diào)度模塊+采集代理模塊＋資料庫＋web展現(xiàn)門戶

我的采集代理模塊，只完成數(shù)據(jù)采集，不含分析，分析工作有任務(wù)調(diào)度模塊里面調(diào)用的java類來做。

我的采集代理模塊，沒用使用socket，是使用lighttpd+perl寫的cgi程序。。