regex - 改行なしで空白を置き換える方法

Question

各行が空白で囲まれた固定TAGで終わる可能性のあるテキストファイルがあります。

いくつかのテキストタグ

私は次のようなものを書いています：

while (<FILE>) {
  s/\s*TAG\s*$//;
  print;
}

問題は、これが最後から新しい行を削除することです、とにかく新しい行を置き換えないようにPerlに指示することはありますか？私が考えたのは書くことだけです

s/\s*TAG[ \t]*$//;

より良い方法はありますか？

[これが適切かどうかはわかりませんが、OSはLinuxです]

ありがとう。

score 3 · Accepted Answer

[^\S\n]改行ではない空白と一致するため、次のようになります。

s/\s*TAG[^\S\n]*$//;

または、次のことを行うことができます。

s/\s*TAG\s*$/\n/;

1 に答える 1