分析log的簡單perl指令碼01

2021-06-01 00:30:12 字數 1389 閱讀 8162

logasny.pl

#! perl -w


my $logname = "e:\\tmp\\ldfs_log\\fw_4_single_ok.log";


#my $logname = "e:\\tmp\\ldfs_log\\fw_12_single_lost.log";


my $ionum = 0;


my $lazyionum = 0;


my $lazyionum30 = 0;


my $lazyionum60 = 0;


#logansyfile


my $logansyfile = "e:\\logansy01_30ms.log";


#my $logansyfile = "e:\\logansy02_30ms.log";


open(outfile, ">$logansyfile");


open(logfile, $logname) || die("couldn't read file $logname01: $!\n");


while (my $line = ) 


if($seg[7]>=60) 


printf $seg[7]."ms\n";	}}


print outfile ("\nionum:       $ionum \n");


print outfile ("lazyionum:   $lazyionum \n");


print outfile ("lazyionum30: $lazyionum30 \n");


print outfile ("lazyionum60: $lazyionum60 \n");


my $point = $lazyionum/$ionum; 


my $point30 = $lazyionum30/$ionum;


my $point301 = $lazyionum30/$lazyionum;


my $point601 = $lazyionum60/$lazyionum;


$point = sprintf("%.4f", $point);


$point30 = sprintf("%.4f", $point30);


$point301 = sprintf("%.4f", $point301);


$point601 = sprintf("%.4f", $point601);


print outfile ("lazy/all:    $point \n");


print outfile ("lazy30/all:  $point30 \n");


print outfile ("lazy30/lazy: $point301 \n");


print outfile ("lazy60/lazy: $point601 \n");

簡單0llyDbg指令碼學習

剛開始學，菜鳥一b。下面直接進入主題。首先練習乙個脫殼。aspack 2.12 alexey solodovnikov 我們嘗試用esp定律 程式入口為 00431001 60 pushad 00431002 e8 03000000 call crackme2.0043100a 00431007 e...

《星空 》指令碼簡單分析

指令碼是編譯型的指令碼，雖然沒加密，但不去除錯的話就很難分析。指令碼第乙個dword是乙個偏移，跳轉到指令碼的那個偏移處的第乙個雙字是指令碼的入口偏移，遊戲從那個偏移處開始對指令碼進行解釋。下面這段東西就是指令操作的過程。跟vmp那指令解碼的過程很像，嗯。quote 0043f890 8b86 1c...

log4j簡單分析

最近在學習開源 學習了log4j，就其中一些知識點分享。針對的是apache log4j 1.2.17 commons logging 1.2。1.log4j中日誌重複列印問題 設定為如下即不會重複列印，最後必須是類名。log4j.additivity.test.testclass false 2....