- 72 名前：デフォルトの名無しさん [2010/03/10(水) 12:16:30 ]
- #!/usr/bin/perl -w
# perl のパスを指定
$send="00000000000\@docomo.ne.jp"; # デフォルト送信先
while (<>){
$content .= $_;
m/^Content-Length: (\d+)$/;
if ( m/^$/ ){ # 本文は調べない
while (<STDIN>){
$content .= $_;
}
}
}
open(SENDMAIL,"|/usr/bin/sendmail $send");
print SENDMAIL $content;
close(SENDMAIL);
exit;
Perlを勉強中で、上記を使って自分の携帯からメールを送りそのまま返信
(転送)するプログラムを作ろうとしています。
実際にメールを送るとサーバーには届いているのですが、返信をしてくれ
ません。記述で間違っている箇所があれば教えてください。
