プログラム質問箱への投稿
記事番号00750へのフォローを投稿します。
引用記事中のHTMLをエスケープせずに
そのまま引用
することも出来ます。
お名前(ペンネイムで結構ですが必要です)
(
ブラウザに個人情報を覚えさせない)
電子メイルアドレス(必要です)
題名(必要です)
Home Page がある方はリンク希望先の URL を記載して下さい
会議室に載せたい内容を以下へお書き下さい (
HTMLを解釈せずにそのまま表示)
7月2日に、sugagaさんは書きました。 >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/<br>/:/g; > print OUT "$DATA_VS[$_],"; >} #DATA_N:フォームの要素の名前 DATA_Vフォームの要素のデータ > >csv読み込み部分 >open (IN ,$filename) || &error('エラー'); > while(<IN>){ > $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 "<br>\n"; > } >exit;
ホームペーヂに戻る
nir@mvg.biglobe.ne.jp
Last Update: 2 December 1999