[原创] 一個用Perl分析Apache Log的簡單程序..

#!/usr/bin/perl

#---------------------------------------------------------------

#fileName: mail_perl:發送測試用的Email

#---------------------------------------------------------------

use Mail::Sender;

## 幫助Debug使用

use Carp();

local $SIG{__WARN__} = \&Carp::cluck;

## 將Standard Error儲存至檔案

open(STDERR,">;>;/tmp/mail_err.log");



#local($to,$subject,$filename,$from,$server_ip,$replyto) =@_;

## 取得輸入參數

$to=shift;

$subject = shift;

$filename=shift;

$filename=~/(\/.*\/)(.*)/;

## 取得附加檔名

$file= $2;

$from=shift;

$server_ip=shift;

$replyto= shift;

$fake_from =shift;



#print "$to,$subject,$filename,$from,$server_ip,$replyto\n";



# 定義smtp server，client是從哪來的

ref($sender = new Mail::Sender {

          smtp =>; "$server_ip",

          client =>; '10.1.1.1',

          boundary=>; 'this-is-a-mail-boundary-435427' })

    or die "Error in mailing: $Mail::Sender::Error\n";

 # 開啟multi part的object，定義to,from,fake_from,charset,replyto,subject等變數

$sender->;OpenMultipart({to=>;"$to",

                      from =>;"$from",

                      fake_from =>; "$fake_from",

                      charset=>;'Big5',

                      replyto =>;"$replyto",

                      subject =>; "$subject"});

# 寫內文

$sender->;Body({charset=>;'big5',ctype=>;'text/plain'});

$sender->;Send(<<"*END*");

這是一封由系統自動告知信件，請查收..謝謝您!!!

--------------------

*END*

# 開始附加檔案部分，先要瞭解附加檔案是什麼型態，

# 本範例是純文字檔，所以ctype使用的是text/plain，如果是gif要使用image/gif

# ，dispositiion會影響user看到的檔案名稱，如果有/xx/xx/ttt.txt會顯示成

# _xx_xx_ttt.txt ，"_"會被替代成"/"

$sender->;Attach({ description=>;"$file",

         ctype=>;'text/plain',

         disposition=>;"attachment;filename=$file",

         file=>;"$filename"

        })

        || die "Error in attachment: $Mail::Sender::Error\n";

$sender->;Close;

#!/usr/bin/perl

# fileName: predate

my %mon=(

  1 =>; "Jan",  2 =>; "Feb",  3 =>; "Mar",  4 =>; "Apr",

  5 =>; "May",  6 =>; "Jun",  7 =>; "Jul",  8 =>; "Aug",

  9 =>; "Sep",  10 =>; "Oct",  11 =>; "Nov",  12 =>; "Dec"

);

my ($sec1,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time-86400);

   $mon++;

   $mon=$mon{$mon};

   $mday = sprintf("%02s",$mday);

   $hour = sprintf("%02s",$hour);

   $min = sprintf("%02s",$min);

   $sec = sprintf("%02s",$sec);

   $year+=1900;

print "$mday/$mon/$year\n";

#!/usr/bin/perl

# check_apache.pl

while(<>;){

  chomp;

  $aa{$_}++;

}

open (FF,">;/apile/record.txt");

my($predate)=`/apile/predate`;

chomp($predate);

print FF "------- APACHE 登錄檔記錄------------\r\n";

print FF "--紀錄日期：$predate      登錄筆數大於500筆者\r\n";

print FF "---------------------------------------------\r\n";

for (reverse sort { $aa{$a}<=>;$aa{$b}} keys %aa){

  if( $aa{$_} >; 500){

     print FF "$_ =>; $aa{$_} \r\n";

  }

}

print FF "---------------------------------------------\r\n";

close(FF);

#!/usr/bin/ksh

# check_apache.sh

PATH=/usr/bin:/sbin:/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin

export PATH

Date=`/apile/predate`

echo "cat /usr/local/apache/logs/access_log|grep $Date | awk '{printf("%s\n",$1)}'|

/apile/check_apache.pl"

cat /usr/local/apache/log/access_log|grep "$Date" | awk '{printf("%s\n",$1)}'|/apile/check_apache.pl



/apile/mail_perl "apile@abc.cde" " APACHE登錄檔檢查每日定時回報" "/apile/record.txt" "apile@abc.cde" "10.2.2.2" "apile@abc.cde" "FAKEMAIL@fake.fake"

#!/usr/bin/perl

my $access;

my $log_file;

my $error_file;

open (ACCESS,"/home/deanej/logs/access.txt") || die "Can't open file";

foreach  (<ACCESS>;) {

  $access.= $_;

}

close (ACCESS);

open (LOG_FILE,"/home/deanej/logs/log_file.txt") || die "Can't open file";

foreach  (<LOG_FILE>;) {

 $log_file.=$_;

}

close (LOG_FILE);

open (ERROR_FILE,"/home/deanej/logs/error_file.txt") || die "Can't open file";

foreach  (<ERROR_FILE>;) {

   $error_file.=$_;

}

close (ERROR_FILE);

open (MAIL,"|/usr/sbin/sendmail -t") || die "can't exec sendmail";

$old=select(MAIL);

print<<"EOF";

TO:aa\@localhost

From:aa\@aa.com

Subject:Log file

Mime-Version: 1.0

Content-Type: multipart/mixed; 

        boundary="----=_Part_702668_3668633.1015131391343"



------=_Part_702668_3668633.1015131391343

Content-Type: text/plain; charset=gb2312

Content-Transfer-Encoding: 8bit

Content-Disposition:inline



$access;

------=_Part_702668_3668633.1015131391343

Content-Type:text/plain; name=log_file.txt

Content-Transfer-Encoding: 8bit

Content-Disposition: attachment; filename=log_file.txt



$log_file;

------=_Part_702668_3668633.1015131391343

Content-Type:text/plain; name=error_file.txt

Content-Transfer-Encoding: 8bit

Content-Disposition: attachment; filename=error_file.txt



$error_file;





------=_Part_702668_3668633.1015131391343--

EOF

select($old);