如果特定字符串不在其前面，则用另一个字符串替换它[关闭]

Question

如何使用 shell 脚本将多个文件中的“if”替换为“abc if”。但是我不想改变 if 之前的 else 吗？

例如：

if (var3 == 4'h0)
   a =    bvec[0];
else
if (var3 == 4'h1)
a =    bvec[1];

应该转换成

abc if (var3 == 4'h0)
   a =    bvec[0];
else
if (var3 == 4'h1)
a =    bvec[1];

请注意： 1.else和if之间可以有不定的空格或者换行。 2.文件中还有更多代码 3. 我希望更改只发生在同一个文件中。 4. 我想将文件名列表传递给脚本

我试过了：

sed -r 's/else[[:blank:]]if/temp1/g;s/if/abc if/g;s/temp1/else if/g' file.v

Answer 1

使用 GNU awk 实现多字符 RS、gensub() 和字边界：

$ awk -v RS='^$' -v ORS= '{
    gsub(/@/,"@A")
    gsub(/#/,"@B")
    $0 = gensub(/\<else(\s+)if\>/,"#\\1#","g")
    gsub(/\<if\>/,"abc &")
    $0 = gensub(/#(\s+)#/,"else\\1if","g")
    gsub(/@B/,"#")
    gsub(/@A/,"@")
    print
}' file
abc if (var3 == 4'h0)
   a =    bvec[0];
else
if (var3 == 4'h1)
a =    bvec[1];

Answer 2

这是一个如何在 Perl 中模拟负变量lookbehind regex 的示例：

#! /usr/bin/env perl

use strict;
use warnings;

my $str = do { local $/; <> };
$str =~ s/((?:else\s*if|if))/my_subst($1)/ge;
print $str;

sub my_subst {
    my $res = $_[0];
    if ( $_[0] !~ /^else/ ) {
        $res = "abc if";
    }
    return $res;
}

输出：

$ p.pl file.txt 
abc if (var3 == 4'h0)
   a =    bvec[0];
else
if (var3 == 4'h1)
a =    bvec[1];

更新：

在文件列表上使用就地编辑：

$^I = '.bak';
$/ = undef;
while (<>) {
    s/((?:else\s*if|if))/my_subst($1)/ge;
    print;
}

然后你可以只运行p.pl file*.txt，备份文件将得到.bak后缀。