一個用Perl分析Apache Log的簡單程式(轉)

一個用Perl分析Apache Log的簡單程式(轉)[@more@]

發信用的Email..會將純文字的檔案寄送出去...

[code:1:f7e3ae6c10]

#!/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 ";

# 定義smtp server，client是?