空メールシステムについて

質問

よくメールマガジンサイト（携帯版）で見かけるのですが、空メールを送信して登録、解除できるサイトがあります。このような仕組みを是非CGIで実現してみたいとおもっていますがこのようなものはCGIで実現可能なのでしょうか？今回は、メールが飛んできたらログファイルにそのメールアドレスを書き込むと言うものだけでかんがえています。
もしできるとするならは、
1.空メールが送られてくるたびにCGIを起動させる方法
2.空メールのヘッダーを読み込みそれを送信元アドレス取得する方法
この２点が質問ないようです。またこれ以外にも他の方法はありますか？

ちなみに僕のサーバー環境はrimネットのホスティングサービスを利用していいます。

１の質問でどうやら.forwardのなかに"|exec /home/user/script"を記述して

#!/usr/local/bin/perl
　while (<STDIN>){処理}
とすれば/home/user/scriptはメールを送られてくるたび実行されるらしいのですがうまくいきませんでした。

この山はどうしても越えたいのでどなたかご教授よろしくおねがいします。

回答No.3

h-kiku

こんな風に記述すれば良いのでは.

ただし、From: が複数行になっている場合は考慮していません

-->
#!/usr/local/bin/perl

# 多分、フルパスで書いたほうが安全だと思います.
$mail = "/..../data/mail.log";

#ここらへんにメールアドレスのヘッターを読み込み送信元メールアドレスを
#取得する記述??

# メール本体
@text = <STDIN>;

$line="junk";
while ((@text) && ($line ne ""))
{
$line = shift(@text);
chomp($line);
if ($line =~ /^From: /)
{
($tmp, $from) = split(":", $line, 2);
}
}
if(!open(OUT,">>$mail"))
{print 'ファイルへの書込みができませんでした。',"\n"; exit;}

print OUT "取得したメールアドレス,$from\n";

close(OUT);
exit;
<--

$from に From: の右側の情報が入ります.

メールアドレス以外の情報(名前など)がある場合は、
そこからメールアドレスのみを抽出する必要がありますね.