たてやんっす

私ならこうします　という感じで　申し訳ない（忙しい身の上なんです(^^ゞ）

まず　ログですが /var/log/messages のなかから　sendmail
のログを取り出すとすると

#!/usr/bin/perl
open(LOGS,"tail -f /var/log/messages |");
while(<LOGS>) {
  #
  #
  #ここで　処理を行う
  #
  #
}
close(LOGS);

といった形で　処理したりします

　unix の外部コマンドを使いたくない場合などは　もうちょいと工夫すれば
tail もつかわず　perl だけでできますが　説明長くなるんでやめときます
＃手抜き

処理を行う場合で
例えば
May 16 18:27:19 mysql sendmail[9579]: SAA09578: to=<tateyan@xxxxxxxxxx>, delay=00:00:01, xdelay=00:00:00, mailer=local, stat=Sent
なんてログから
日時と　 to を取り出す場合


処理の部分で


 if(/(\S+\s+\d{2}\s+\d{2}:\d{2}:\d{2})\s+\S+\s+\S+\s+\S+\s+to=(\S+),/)
        $count++;
        open(OUTF,">/tmp/log$count.tmp");
        print OUTF qq{"$1","$2"\n;
        close(OUTF);
 }

とすれば 
ls /tmp/*.tmp

/tmp/log1.tmp  /tmp/log3.tmp  /tmp/log5.tmp  /tmp/log7.tmp
/tmp/log2.tmp  /tmp/log4.tmp  /tmp/log6.tmp

とできていきまして
中身は
"May 16 18:27:19","<tateyan@xxxxxxxxxx>"
と言った形になります

正規表現とか　qq{} によるクオート表現とか　使ってますので　ご理解いただけるかは？？？
ですが...

で　この部分を　MySQL に食わせてあげればいいんですが
DBI / DBD を　使わない方法ということでしたら


        open(OUTF,">/tmp/log$count.tmp");
        print OUTF qq{"$1","$2"\n;
        close(OUTF);
をフィルタでmysql へ突っ込むという荒業で行ってみます？

        open(OUTF,"|mysql DATABASE名");
        print OUTF qq{insert into テーブル名 （val名 ,val名）VALUES("$1","$2");\n};
        close(OUTF);

なんて　ことでどうでしょう　（検証してないのでまちがったらごめんなさい）

もちろん　この部分を　DBI　で作れば　OKっす


#/usr/bin/perl
use DBI;
$user="hogehoge";                #mysql のユーザ名
$passwd="passwd";                #mysql のユーザのパスワード
$driver = "mysql";
$database="logs";                #データベース名
$hostname="localhost";
$dsn = "DBI:$driver:$database:$hostname";
$dbh = DBI->connect($dsn,$user,$passwd)|| die $DBI::errstr;
$sth = $dbh->prepare("insert into table (date,user) VALUES (?,?)")|| die $dbh->errstr;
open(LOGS,"tail -f /var/log/messages |");
while(<LOGS>) {
$sth->execute();
 if(/(\S+\s+\d{2}\s+\d{2}:\d{2}:\d{2})\s+\S+\s+\S+\s+\S+\s+to=(\S+),/)
         $sth->execute($1,$2) || die $dbh->errstr;;
 }
}

という　形でいけるかも


Ctrl-C　で終了した場合とか　のハンドラを入れればGOODかも


ただし　ログはローテートされてないことを前提に書いてますし



endo@xxxxxxxxxx (遠藤　俊裕) さんは Perl ではどう使う？ にて
遠> ども、えんどうです。
遠> 
遠> 遠藤　俊裕 さんは書きました。
遠> >ということで、堤井さんの方法で行ってみようと思います。
遠> 
遠> と思って、さっそく作り始めたのですが、またぶつかりました。
遠> 
遠> データはずーっと出てくるわけで、それをフィルタすると
遠> ファイルはいつまでも完結しないわけで、そうすると mysql
遠> にファイルを食わせることが出来ないわけで。。。
遠> 
遠> perl もよく分かってないもので困ってしまっているのですが、
遠> ちょっと mysql と趣旨が違っちゃってますけど、どなたかご
遠> 教授ください。


============
  彡彡从        たてやんっす
 d□/□-ｂ      <tateyan@xxxxxxxxxx>
 ヽ"ー"丿