行頭・行末の改行の削除方法

質問

Perlの超初心者です。

<textarea>タグを使って入力した値をPerlでテキストファイルに保存する際に、行頭・行末の改行を取りたいのですが、どうすればよいでしょうか？

よろしくお願いします。

回答No.2

kirin_f · ベストアンサー

1さんにけんかを売るつもりはないんだけど、それだと行頭・行末以外の文中の改行まで消えちゃうよ。

それが質問者さんの意図する動作ならいんだけど、「行頭・行末の改行を取りたい」と書かれているので、多分違う気がします。

参考URLに、ほぼそのままのソースがありますので、
どうぞ。

参考URL：

http://home.interlink.or.jp/~kamitani/qa/honbun/040223232310.html

回答No.3

root139

「改行」は、行の一番後ろに一つだけあるものですから、行頭に改行は有り得ないですよね？
「行頭・行末の改行を取りたい」では無く、「行頭・行末の空白を取りたい」のでは？

「改行を取りたい」のであれば、#1さんのお答え、「行頭・行末の空白を取りたい」のであれば、#2さんのお答えになるかと。

回答No.1

moon_night

手っ取り早いのは
$text =~ s/\r\n//;
$text =~ s/\r//;
$text =~ s/\n//;
とやれば。
戻すことを考えるのならば
$text =~ s/\r\n/<br>/;
などとすればいいと思います。

お礼

みなさん、ありがとうございました。

行頭・行末って表現は、間違えですね^^;;
正確には、文字列の最初と最後です。

教えて頂いた、方法でなんとかなりそうです。
ありがとうございました。