Perl/CGIについて
#!/usr/bin/perl
use CGI;
$cgi = new CGI();
$from = $cgi->param('from');
$namae = $cgi->param('namae');
$naiyou = $cgi->param('naiyou');
print "Content-type: text/html\n\n";
# 設定
$sendmail = '/usr/lib/sendmail';
$jcode = './jcode.pl';
$to = 'ha***@***.ne.jp';
#$from = '';
$subject ='名鉄と地下鉄の直通運転';
# 文字コードライブラリの読み込み
require $jcode;
# メール送信
&jcode'convert(*subject,'jis');
open(MAIL,"| $sendmail -t");
# ヘッダ情報出力
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
# 本文出力
print MAIL " $namae\n\n";
print MAIL " $naiyou\n";
close(MAIL);
#確認表示
print " $namae\n";
print " $naiyou\n";
print "メールを送信しました\n";
end
#確認表示の所で表示が改行されない。
お礼
それでした。 大変ありがとうございました。