新規記事投稿

フォロー記事投稿

記事のキャンセル

HTMLのフォームから取り込んだデータを、perlを使って、csvファイルに書き込み、csv
ファイルのデータを表示させるcgiを作成しています。
フォームのテキストエリアで改行が入力された際、表示させる時も同じように改行を
入れたいのですが、どのようにすればいいでしょうか？
現状は改行を削除して表示しています。

ソース
csv書き込み部分
open (OUT,">$filename") || &error('オープンエラー')；			
	$count = @DATA_N;
	foreach ( 1..$count) {
	　　$DATA_VS[$_] = $DATA_V[$_];
             $DATA_VS[$_] =~ s/<br>/:/g;
             $DATA_VS[$_] =~ s/
/:/g;
　　　　　　 print OUT "$DATA_VS[$_],";
}　　#DATA_N:フォームの要素の名前　DATA_Vフォームの要素のデータ

csv読み込み部分
open (IN ,$filename) || &error('エラー');
	while(){
	   $csvdata = $_;
　　　　　　chop $csvdata;
　　　　　　@data = split(/\,/, $csvdata);
            $data_count=@data ;
           for($i=0;$i<=$data_count;$i++){
            print "Content-Type: text/html\n\n";
　　　　　　print @data[i];
            print "
\n";
           }
exit;