ChangeLog メモに適切な改行を与える Perl One Liner

過去の ChangeLog メモを読み返していたら、ChangeLog のフォーマットに則っていないメモがたくさん見つかった。日付とアイテムの間に改行が入っていないというもの。

以前の私が書いていた、改行が足りず正しくない ChangeLog。

2003-06-16  Saito Hiroaki  <hiroaki@example.jp>
    * MS SQL Server: 文字列中のシングルクオートのエスケープ
    SQL Server で使う Transact-SQL における文字列のエスケープ。

正しい ChangeLog。

2003-06-16  Saito Hiroaki  <hiroaki@example.jp>

    * MS SQL Server: 文字列中のシングルクオートのエスケープ
    SQL Server で使う Transact-SQL における文字列のエスケープ。

2003年頃の私は Emacs 系のエディタを使わずに ChangeLog メモを書いていたため、書式の統一が取れていなかった。このまま放置するのは精神衛生上良くないので修正しておく。

- Perl One Liner で一括置換

こういうのは正規表現で一括置換するのが手軽で良い。使い捨てのワンライナー (1行スクリプト) を書いた。

$ perl -i.bak -0777 -pe 's/^(\d\d\d\d-\d\d-\d\d\s+Saito Hiroaki\s+<.+?>\n)\t/$1\n\t/mg' log.txt

-i.bak は元のファイルは ファイル名の末尾に .bak を付けてバックアップするというオプション。
-0777 はファイルを一気に読み込んで Perl ワンライナーに渡すというオプション。
-p は実行結果を出力するオプション。
-e は オプションの引数に与えた Perl スクリプトを実行するオプション。

念のためバックアップと置換後のファイルの diff を取ってざっと確認。うん、問題なさそう。