- 141 名前:お願いします mailto:sage [04/05/11 01:44 ID:???]
- 色々調べつつ下記の様に書いて見たんですが、全然メール来る気配なしです。
何が間違ってるのか全然わかりません。 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); } これではダメなのでしょうか?
|
|