ファイルに書き込んだ際に余計な空行が入ってしまう

質問

テキストエリアに入力された内容からプルダウンメニューの選択肢を生成させようと以下のようにしているのですが、作成されたファイルを見ると入れた覚えのない改行が余計に入ってしまい空行ができてしまいます。書き込んだファイルがこの状態でもプルダウンメニュー生成の際は空の選択肢が出来てしまうようなこともなく正常に生成できるのですが、なんか気になってしまい・・・・。
この空行ができてしまうのはなぜなんでしょうか、この空行を作らずにファイルに書き込みたいのですが。

入力部
<textarea name="pulldownvalue" rows="10" cols="10" wrap="OFF"></textarea>

ファイル書き込み部
if($INPUT{'pulldownvalue'}){

open(FILE,">pulldown.txt");
print FILE "$INPUT{'pulldownvalue'}";
close(FILE);

}

pulldown.txtの内容がこうなってしまう:
textsample

textsample

textsample

これをこのようにしたい：
textsample
textsample
textsample

回答No.1

maura · ベストアンサー

# TEXTAREAから入力されたデータについては改行コード\n以外のコードが付くので
# 改行コードを\nに統一する
$INPUT{'pulldownvalue'} =~ s/\015\012/\n/g; # Windowsから
$INPUT{'pulldownvalue'} =~ s/\015/\n/g; # Macから

# 空行を削除
$INPUT{'pulldownvalue'} =~s/\n\n*/\n/g;

お礼

mauraさん、ありがとうございます。
ばっちりです。
ふーすっきりしたー！