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

＃確認表示の所で表示が改行されない。

回答No.1

asciiz · ベストアンサー

＞＃確認表示の所で表示が改行されない。

これは、cgiと言うのがhttpアクセスする物だからで、その返答はHTMLだと解釈されるからです。

上の方にも、

＞print "Content-type: text/html\n\n";

って書いてますよね。実はそういう意味があったのです。

で、htmlにおいて

abc
def
ghi

と書いても、ブラウザで表示すると

abc def ghi

と一行に表示されます。

明示的に改行させるには、

abc<br>
def<br>
ghi<br>

と、毎回<br>タグを書いてやらなければ行けません。

あるいは、<pre>～</pre>タグにて、改行によりプレフォーマット済み、と提示する方法でもいいです。

<pre>
abc
def
ghi
</pre>

このどちらかで、printしてやれば、改行表示できます。

print " $namae<br>";
print " $naiyou<br>";
print "メールを送信しました<br>";

または

print "<pre>";
print " $namae\n";
print " $naiyou\n";
print "メールを送信しました\n";
print "</pre>";

※ $naiyou にも改行が入っている場合もあると考えると、後者の方が良いかもしれません。
ただ<pre>～</pre>内はフォントが変わってしまう場合もあります(固定幅フォントなどに)。