perl - Perl-コンソール出力のみを表示する代わりにファイルに変更を書き込む方法

Question

SOでこのコマンドを見つけました。これはまさに私が知りたかったことですが、コンソール出力しか表示されません。作業中のファイル（file.txt）を書き直すコマンドが必要です。このコマンドは、400より大きいファイル内のすべての数値（まあ、正の整数）を取り、それに13を追加します。

perl -pe 's/\d+/$& > 400 ? $&+13 : $&/ge' file.txt

Answer 1

インプレース編集用のオプション-iを追加します。

perl -i -pe 's/\d+/$& > 400 ? $&+13 : $&/ge' file.txt