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