04/05/11 01:44
色々調べつつ下記の様に書いて見たんですが、全然メール来る気配なしです。
何が間違ってるのか全然わかりません。
sub outputdata{
# 現在の時間を取得
($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$mon++;
$year += 1900;
$stmp = sprintf("%04d/%02d/%02d-%02d:%02d:%02d",$year,$mon,$day,$hour,$min,$sec);
&body;
open (DAT,">>$output");
flock(DAT,2);
print DAT "$body,$stmp\r\n";
close (DAT);
#メール送信
$myaddress = 'xxx@xxxx.com';
open(MAIL,"|$sendmail $myaddress");
print MAIL "Subject: title\n";
print MAIL "$body,$stmp\n";
close(MAIL);
}
これではダメなのでしょうか？