一個用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是?

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8225414/viewspace-943005/，如需转载，请注明出处，否则将追究法律责任。