【專題交流】我今天又偷懶了

whatmycool

呵呵，不錯

bulletming

1.最近作了一個Email日志分析系統，將日志分析后insert到oracle數據庫，然后在interchange平臺上，寫一些網頁展示出來，可以查詢，圖形(chartdirector)流量顯示等
2.測試proxy的速度，每十分鐘經過代理去取一次網頁。出數據，生成圖表。

jetgm

在log日志里分析訪問情況，然后生成excel發email給業務部門

skyfish8u8

自動化測試WLAN，晚上自己跑，早上來看測試報告。哈哈

flw

我給補充兩個我自己親身經歷的例子。

工作中有什么煩人的事，需要重復勞動的地方，就可以考慮用 Perl 來做。
比如我有一回測試一個 SPF 服務，需要不斷地重復以下過程：
1，從待測 IP 清單中拿出一個 IP 地址。
2，修改機器 A 的 IP 成為此 IP。
3，把機器 B （和機器 A 在一個網絡里）的 IP 設置成和剛才那個 IP 在同一個網段的隨便一個 IP。
4，在機器 A 上往機器 B 上發一份 email。（情況略有不同，但是先大概這么理解吧。）
5，看發信結果是能發過去，還是被拒絕。

那個 IP 清單很長，忘了是好幾千還是好幾萬還是好幾十萬了，
反正手工一個一個做是不可能的，于是開始時抽樣做了幾個 IP，
后來嫌太麻煩，就用 Perl 寫了一個腳本。
自動完成以上所有工作。

/path/to/ttt.pl ip.list | tee report.txt

若干小時之后只需要觀察 report.txt 就可以了。
如果老板不是很黑的話，這幾個小時期間就可以去喝茶了。

flw

再舉一個例子，
我前陣子接手一個項目，典型的 C/S 結構 socket 程序，我調的是服務端，C 寫的。原來的代碼寫的特別爛，我在調試的過程中需要反復地讓配合我測試的另外一位同事發送某個請求以便跟蹤程序、找到問題所在。但是因為客戶端自身有一些業務上的限制導致操作起來并不是那么便利（比如每次都要重新輸入很多資料、輸入不完整、不合法還不行），我看到那位同事很辛苦，出于體諒到他的情緒，以及為大家節約時間的角度考慮，我就修改了一下服務端的代碼，把收到的報文儲存在一個臨時文件中，并寫了一套 Perl 腳本，show 03 就可以查看交易代碼是 03 的那些報文（文件名），replay_last 03 重放最后一個 03 業務。replay /tmp/pkg/foo.dat 重放某個指定的業務，等等。

這樣一來，每次他只需要告訴我他在哪個功能中發現了錯誤，我就 show xx 一下找到對應的文件名，
然后重復地 replay 這個報文，同時跟蹤、修改、再跟蹤服務端。等到改好之后，再讓他試一下就行了。

至于選擇 Perl 來寫這些腳本而不是 C 或者別的東西，
是因為發送一個完整的請求包括了 Socket 操作、查找報文文件、XML 識別、壓縮解壓等操作，用 C 寫起來可能就得不償失了。

pondka

這個帖子好，頂上去，讓大家都分享一下經驗！

apile

1.最近寫了個替代who的who.pl...因為單位內采用一種很特殊的方式登入AIX系統..
  先用同一個id進入aix..然後再提示LDAP的帳號密碼..輸入後..利用expect加上su -轉換成別的id...
  也就是說大家都用A進入OS..但是完成LDAP輸入後..變成自己個人的id.....
  這時候..用who..只會看到一堆A...看不到實際id...與姓名..
  所以結合ps -ef、who、cat /etc/passwd
  以pts為主..
  個這是個簡單的who.pl....主要跟who一樣...只是能盡快知道那個ip是那個id上來了...
   不然要知道那個人在那個pts..得要看很多地方才查得到...
output內容如下：
自己id    姓名    PTS    登入時間   登入IP
who大致內容一樣..但是多了個姓名....
速度是我同事用shell script寫的who.sh 兩倍以上...

2.用perl寫了個分析apache access_log的資料..避免自己寫的 apache被人家惡意搞垮了...
  主要是分析某個IP一天之內access了幾次..超過一千次的發Email通知..超過一萬次的..
  早上來直接加入apache的 deny list中..

[ 本帖最后由 apile 于 2007-7-2 13:23 編輯 ]

red999

每個工作日都要填寫日報，覺得這個劇麻煩，而且還老是忘記，于是前段時間學了perl之后，鼓搗了一個perl腳本，周一至周五自動登陸填寫日報，真是爽，呵呵

[ 本帖最后由 red999 于 2007-7-2 15:35 編輯 ]

flw

原帖由 red999 于 2007-7-2 15:34 發表
每個工作日都要填寫日報，覺得這個劇麻煩，而且還老是忘記，于是前段時間學了perl之后，鼓搗了一個perl腳本，周一至周五自動登陸填寫日報，真是爽，呵呵

日報內容來自何方？