Замена строк в файле на основе списка строк и списка соответствующих замен

Это может помочь решить вашу проблему. (См .: https://unix.stackexchange.com/questions/283017/awk-command-i-want-to-compare-two-rows -in-two-files-and-update-the-second-file-i )

Source.txt имеет следующие две строки:

OldString
NewString

Перед выполнением команды Target.txt содержит следующие строки:

OldString ==> NewString
This is Target File containing OldString now.
OldString is to be replaced.
NewString won't get impacted.

Use :

awk -v lookupStr=`awk 'NR==1' Source.txt` -v replacementStr=`awk 'NR==2' Source.txt` 'NR==2 && (idx=index($0,lookupStr)) { $0=substr($0,1,idx-1) replacementStr substr($0,idx+length(lookupStr)) } 1' Target.txt > temp.txt && mv temp.txt Target.txt

Выполнение команды после выполнения Target.txt имеет следующую строку:

OldString ==> NewString
This is Target File containing NewString now.
OldString is to be replaced.
NewString won't get impacted.

Здесь я определил две переменные lookupStr и replaceStr. обе присвоены строке №1 и строке №2 Source.txt соответственно. Затем в строке Sencond файла Target.txt я заменяю содержимое $ 0 первым символом до индекса lookupStr (т.е. "OldString") затем добавление replaceStr (т.е. «NewString») и затем конкатенация остальных символов. В конце вывод записывается в temp.txt, и он переименовывается в Target.txt

. Если вам нужно выполнить это упражнение по замене всего файла, просто удалите условие NR == 2 && из приведенной выше команды.

Если вы хотите, чтобы замены производились независимо друг от друга, например, для:

foo -> bar
bar -> foo

Подано на

foobar

В результате:

barfoo

в отличие от foofooкак сделал бы наивный s/foo/bar/g; s/bar/foo/gперевод, вы могли бы сделать:

perl -pe '
  BEGIN{
    open STRINGS, "<", shift@ARGV or die"STRINGS: $!";
    open REPLACEMENTS, "<", shift@ARGV or die "REPLACEMENTS: $!";
    while (defined($a=<STRINGS>) and defined($b=<REPLACEMENTS>)) {
      chomp ($a, $b);
      push @repl, $b;
      push @re, "$a(?{\$repl=\$repl[". $i++. "]})"
    }
    eval q($re = qr{). join("|", @re). "}";
  }
  s/$re/$repl/g' strings.txt replacements.txt fileA 

В patterns.txtожидается perlрегулярных выражений. Поскольку регулярные выражения Perl могут выполнять произвольный код, важно, чтобы они были очищены. Если вы хотите заменить только фиксированные строки, вы можете изменить это на:

perl -pe '
  BEGIN{
    open PATTERNS, "<", shift@ARGV or die"PATTERNS: $!";
    open REPLACEMENTS, "<", shift@ARGV or die "REPLACEMENTS: $!";
    for ($i = 0; defined($a=<PATTERNS>) and defined($b=<REPLACEMENTS>); $i++) {
      chomp ($a, $b);
      push @string, $a;
      push @repl, $b;
      push @re, "\\Q\$string[$i]\\E(?{\$repl=\$repl[$i]})"
    }
    eval q($re = qr{). join("|", @re). "}";
  }
  s/$re/$repl/g' patterns.txt replacements.txt fileA