ファイル内のperl findaテキストと新しい行追加

Question

私の要件は、perlを使用するファイルの置き換えです。見つかる文字列は '='です。ファイルの内容は、この文字列が見つかる行の最後に変更する必要があります。次の行を追加してください。ここで私を助けてください。私は "="の直前で単語を得る方法についても新しい行を追加することができません。これは、ファイル内の文字列のすべての箇所で置き換えなければなりません。

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

あなたは私が何をしたかについてのアイデアを得るでしょうその後、以下のリンクを読んで、次の1つのライナー

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

を試してみてください

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

Answer 1

に置き換える必要があります。

next

unless

Regular Expression

\w、\s、.、+、*

Substitutions///

RegEx grouping()、$1、$2