textarea内での改行の条件

質問

投稿フォームなどのtextarea内で、改行の条件を決めたいと思っています。
具体的には、「。、・）」や「.,-)」などが文章末尾にある場合に限り改行を許可するといった感じです。
上記の許可文字以外でEnterキーを押して改行しても、実際には改行されずに処理が行われる方法が希望です。

textarea内の値が$mesの場合、

$kai = " 。．.、？?！!-ー－";

$mes =~ s/[^$kai]<br>//g;

上記のように置換をすると、$kaiに設定されている文字などで改行を行っても無効となり、$kai<br>ではOKという感じなんですが、改行が無効となる部分の文字が化けてしまいます。

何か最良な手法がございましたらご教授頂けますと幸いです。
宜しくお願い致します。

回答No.1

moon_night · ベストアンサー

すでに \n などの改行制御文字を <br> に変換してあるということでよいのでしょうか？

$mes =~ s/[^$kai]<br>//g;
この場合は指定した文字以外の文字が消えます。

$mes =~ s/([^$kai])<br>/\1/g;

テストをしてないので動かないかもしれません・・・

お礼

お礼が遅れてしまいまして申し訳ございません。

バッチシ希望どうりの動作となりました！
\1はわからなかったので、非常に助かりました。

ご教授頂きまして有難うございました。