自動改行タグの挿入

質問

フリーの改造OKなCGIを改造していますが、上手く行きません。

<textarea name=com cols="70" rows="10" wrap="OFF"></textarea>

上記のタグで入力したテキストの末尾に、自動で改行タグを付けて
$com に渡してデータ保存をしたいのですが、なかなか上手く行き
ません。どの様な記述をすればよいでしょうか？
ご指導宜しくお願い致します。

回答No.7

kumoz · ベストアンサー

元の BreakPutter.cgi を少し見てみました。その中に、次のコードがあります。

sub Change {
$result = $input{'document'};
$break = $input{'tag'};
if ($break eq 'br_head') {
$result =~ s/(\r\n|\r|\n)/$1<br>/g;
} elsif ($break eq 'br/_end') {
$result =~ s/(\r\n|\r|\n)/<br \/>$1/g;
} elsif ($break eq 'br/_head') {
$result =~ s/(\r\n|\r|\n)/$1<br \/>/g;
} else {
$result =~ s/(\r\n|\r|\n)/<br>$1/g;
}
}

少し問題はあると思いますが、それはともかくとして Change サブルーチンの最後の段階で
$result は、デコード済みで <br> タグ付きのデータになっています。Change の末尾に
$result をファイルに落とすコードを追加すれば、サーバーに保存することができます。
それとも、考えているのはクライアント側での保存ですか？