cgi：textareaでの改行を<br>に

質問

perlでcgiを作成しています。
<textarea>などで投稿されたテキストの改行文字を<br>に変換するために、

$value =~ s/\r\n/<br>/g;
$value =~ s/\r/<br>/g;
$value =~ s/\n/<br>/g;

のように処理していました。が、<textarea>内で最後に何度もenterを押す人がいて、結果、
hoge<br>hoge<br><br><br><br><br><br><br>
のようになってしまいます。
hoge<br>hoge
のようにしたいのですが、パターンマッチをあまり勉強していないので、
よくわかりせん。
よろしくお願いします。

回答No.1

so_blue · ベストアンサー

自分は、その3つの処理の後に、下記を実行しています。
$value =~ s/(<BR>|\s)+$//g;
# 最後に<BR>かスペースかタブが1つ以上ある時はとっぱらい

自己流なので、もっといい方法があるかもしれません。

お礼

ありがとうございます。とりあえずできたようです。

ところで、
＞# 最後に<BR>かスペースかタブが1つ以上ある時はとっぱらい
は、もしかして、
$value =~ s/(<BR>|\s|\t)+$//g;
ですか？
また、最後の、っていうのは、+$の部分がポイントなんでしょうか？

回答No.2

so_blue

＞は、もしかして、
＞$value =~ s/(<BR>|\s|\t)+$//g;
＞ですか？
\sには「改行・スペース・タブ」が含まれるようなので、
\tはなくてもOKです。
# 知識として知っているのみで、検証した事はないのですが....

＞また、最後の、っていうのは、+$の部分がポイントなんでしょうか？

若干惜しいのですが、「(<BR>|\s)+$」を分解すると、

(<BR>|\s) → <BR> or \s （改行・スペース・タブ）
+ → 直前のものが1回以上（あればあるだけマッチ）
$ → 行末（正確には最後の文字の後ろ）

となります。
+ の「直前」は()でグループ化したものですね。

「s/(<BR>|\s)+$//g;」がもし「s/(<BR>|\s)+//g;」だった場合、
<BR>・改行・スペース・タブのどれかが1回以上続く部分
にマッチすることになり、総てのスペースや改行がトッパラワレてしまうわけです。

ちょっと解説が下手で申し訳ないですが、こんな感じです（汗

お礼

ありがとうございました。理解しました(^^