空でない最後の行のテキストを置き換える方法は？

Question 1

大容量ファイルの場合は、より速いGuruの回答を使用してください。しかし、小さなファイル（25行未満）では、これが少し速いことがわかりました（GNU tacがあると仮定）。

tac file | awk '!/^[[:blank:]]*$/{i++;if(i==1){sub(",$","")}}1' | tac

Answer

大容量ファイルの場合は、より速いGuruの回答を使用してください。しかし、小さなファイル（25行未満）では、これが少し速いことがわかりました（GNU tacがあると仮定）。

tac file | awk '!/^[[:blank:]]*$/{i++;if(i==1){sub(",$","")}}1' | tac

Question 2

回答

perl -0777 -p -i -e 's/,(\n*)\Z/\1/m' *.txt

.txt最後の ',' は ',' の後にゼロ個以上の改行だけがあり、ファイルの終わりが来ると ',' で終わるすべてのファイルから削除されます。

あなたの例では：

reedm@www:~/tmp $ cat > test.txt
blah blah blah,
blah blah blah,
blah blah blah,


reedm@www:~/tmp $ perl -0777 -p -i -e 's/,(\n*)\Z/\1/m' *.txt
reedm@www:~/tmp $ cat test.txt
blah blah blah,
blah blah blah,
blah blah blah


reedm@www:~/tmp $

ワット？

Perlは最高の瞬間に難解な獣であり、Perlの冗談は特に秘密である可能性があります。

この-eフラグを使用すると、コマンドラインからPerlプログラムを渡すことができます。この場合、「s/regex/replace/flags」はプログラムです。

このフラグは、Perlが提供された各ファイル名の各「行」-pにループとして提供されたプログラムを適用するようにします（参考文献を参照）。-0

この-iフラグは、Perlが出力を標準出力に印刷するのではなく、ファイルをプログラムの出力に置き換えるようにします。

この-0フラグは、ファイルを「行」で区切るためにPerlが使用する区切り文字を変更します。0777慣例に従って使用すると、Perlがファイル全体を単一の「行」として読み取るようにする特別な値です。

正規表現は、いくつかのPerl関連のトリックのために少し複雑です。

まず、m末尾のフラグがあるため、正規表現は複数行で実行されます。
,シンプルで、単一のカンマと一致します。
(\n*)1行にゼロ個以上の改行文字を一致させ、それをサブパターン（(および)サブパターンを表す文字）として保存します。これは最初のサブパターンなので、\1置換セクションで「このサブパターンが一致するもの」を意味するために使用できます。
\ZPerl 専用の拡張子で、使用される文字列の末尾と一致します。この場合はファイル全体です。
置換部分では、\1一致を一連の改行文字で置き換え、カンマを削除します。

Perl正規表現とPerlコマンドラインフラグの詳細については、およびperlre各マニュアルページを参照してくださいperlrun。

Answer

回答

perl -0777 -p -i -e 's/,(\n*)\Z/\1/m' *.txt