perl在文件中找到文本，然后添加新行

Question

基本上我的要求是使用perl替换文件。要找到的字符串是'='。应该修改文件的内容，使其在找到该字符串的那一行的末尾进行修改，它应该再添加一行，如下所示。请帮我在这里。我无法找到在“=”之前添加新行的方法。这必须在文件中的所有字符串中被替换。

var b = "text" 
var c = "integ" 

应

var b = "text" 
println "the variable b is $b" 
var c = "integ" 
println "the variable c is $c" 

Answer 1

更换试试下面的一个衬垫

perl -ne 'next unless (/=/); s/(var\s*(\w+)\s*\=.+)/$1\nprintln "the variable $2 is \$$2"/; print; ' input.txt 

然后阅读下面的链接，你会得到一个我所做的想法。

next

unless

Regular Expression\w，\s，.，+，*

Substitutions///

RegEx grouping()，$1，$2