正则表达式替换（sed或perl）变量捕获

Question

我需要对包含以下内容的文件执行正则表达式捕获/重新生成。 虽然我可以匹配东西，但我在捕捉替换方面遇到了麻烦。

我想做以下事情：

1. 捕获在每个实例中都会有所不同。
2. 在引用表名称的复制行之前添加一个新行。

所以，例如， copy mytable(将成为hello mytable\\ncopy mytable( 。

---

样本输入

copy tablename(
        preferredid= 'c0»',
        qid= 'c0»' with null(''),
        qpi= 'c0»',
        ptid= 'c0»' with null(''))...

into '/idata2/backup/core/eq.ingres'

Answer 1

尝试这个 ：

sed 's/^copy \([^(]*\)($/hello \1\ncopy \1(/' 

Answer 2

使用perl单线程

perl -i -pe 's/^(?=copy (\w+)\()/hello $1\n/' file