上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

ファイルの末尾の空改行をすべて削除し、上書き保存するサンプルスクリプトです。

open(DATA,"<$tmpfilename") or die $!;
my $content = do {local $/; <DATA>};
close(DATA);

while (1) {
if (substr($content,-1) ne "\n"){
last;
}
chomp ($content);
}

open(DATA,">$tmpfilename") or die $!;
print DATA $content;
close(DATA);


DQFAQの再構築にあたって、ファイルの末尾に改行がついてたり、ついていなかったり、という不統一を修正する過程で、探してもなかなかサンプルスクリプトがなかったのでメモ。
Related Posts

Thoughts on スポンサーサイトファイル末尾の連続する改行を取り除くサンプルスクリプト

Leave a Reply

* less than 16 characters
* less than 24 characters
* less than 16 characters
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。