在Pattern之后编辑的一行脚本

Question

我在这里得到了一个例子，但不会将输出/打印写入文件

perl -lne 'print $_;print "This is Middle" if(/Beginning/);' file

我尝试了> file，但碰巧将它全部覆盖了。

Answer 1

您无法同时从文件和中读取信息。处理此类事情的常用方法是写入临时文件并在操作后用原始文件替换原始文件：

perl -lne 'print $_;print "This is Middle" if(/Beginning/);' file > file.tmp; \
mv -f file.tmp file

See also