質問: "$answer{'text'}"; require 'jcode.pl'; &jcode'convert(*data,'sjis'); open(dataright,"; close(dataright); print "content-type:text/html\n\n"; print < メール送信フォーム ------------------ お知らせ $data ------------------ eof exit; ちなみにテキストは改行に
回答: 誤: $data= ; 正: @data= ; では? $foo = という書き方だと、1行しか持ってこなかったような気がします。 全部欲しい場合は配列に代入します。 ちなみに、全行つなげた行を作るにはこうやればいいかと思います。 my $lines = join('\n', @data); それにしても、$data= ;のところでもとの$dataを上書きして、もともとの$dataは何にも使われていないように見えますが、このプログラムでいいんですよね?