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

Question

基本上我的要求是使用perl替换文件。要找到的字符串是＆＃39; =＆＃39;。应该以找到此字符串的行的末尾修改文件的内容，它应该再添加一行，如下所示。请在这里说我。我无法找到关于如何在＃34之前获得这个词的新行。 =＆＃34;。必须在文件中字符串的所有出现时替换它。

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，.，+，*

Substitution s///

RegEx grouping ()，$1，$2