Perl 命令行 - 如果找到字符串替换下一行

Question

我是个 Perl 菜鸟，我想弄清楚这件事是否可以完成。我有一个文本文件，其中包含公式名称等数据，然后是下一行(单行)中的公式，如下所示 -

Formula Name = abc formula for TAT
count(a)+500

公式名称是唯一的。我需要搜索公式名称，然后在下一行替换公式。做这个的最好方式是什么？可以用perl命令行来完成吗？

似乎命令行一次读取一行文件，我需要使用 -0NNN 开关才能在多行上进行操作。但我不确定如何使用它。

提前致谢!

J

Answer 1

您不需要使用 -0777 选项，您可以简单地读取并丢弃一行，然后将您想要的任何内容添加到当前行。

perl -pe 'if (/Formula Name/) { <>; $_ .= "new formula$/"; }' filename

我使用 $/ 来表示你的换行符，因为它应该与 readline 使用的相同。但是您也可以使用 \n。要进行就地编辑，只需添加 -i.bak 开关。