用 sed 替换大小写匹配模式

Question

我有一个分布在多个文件中的源代码。

• 它有一个模式abcdef，我需要用pqrstuvxyz.
• 模式可以是Abcdef(Sentence Case) 然后它需要替换为Pqrstuvxyz.
• 模式可能是AbCdEf(Toggle case) 然后它需要替换为PqRsTuVxYz.

简而言之，我需要匹配源模式的大小写并应用适当的目标模式。

我如何使用sed或任何其他工具实现这一目标？

Answer 1

便携式解决方案使用sed：

sed '
:1
/[aA][bB][cC][dD][eE][fF]/!b
s//\
&\
pqrstu\
PQRSTU\
/;:2
s/\n[[:lower:]]\(.*\n\)\(.\)\(.*\n\).\(.*\n\)/\2\
\1\3\4/;s/\n[^[:lower:]]\(.*\n\).\(.*\n\)\(.\)\(.*\n\)/\3\
\1\2\4/;t2
s/\n.*\n//;b1'

使用 GNU sed 会容易一些：

search=abcdef replace=pqrstuvwx
sed -r ":1;/$search/I!b;s//\n&&&\n$replace\n/;:2
    s/\n[[:lower:]](.*\n)(.)(.*\n)/\l\2\n\1\3/
    s/\n[^[:lower:]](.*\n)(.)(.*\n)/\u\2\n\1\3/;t2
    s/\n.*\n(.*)\n/\1/g;b1"

通过使用&&&上面，我们重用字符串替换的其余部分的情况下的模式，因此ABcdef将改为PQrstuVWx和AbCdEf到PqRsTuVwX。将其更改为&仅影响前 6 个字符的大小写。

（请注意，如果替换可能会被替换（例如，如果替换fooforfoo或bcdfor abcd），它可能无法执行您想要的操作，或者可能会陷入无限循环

Answer 2

便携式解决方案使用awk：

awk -v find=abcdef -v rep=pqrstu '{
  lwr=tolower($0)
  offset=index(lwr, tolower(find))

  if( offset > 0 ) {
    printf "%s", substr($0, 0, offset)
    len=length(find)

    for( i=0; i<len; i++ ) {
      out=substr(rep, i+1, 1)

      if( substr($0, offset+i, 1) == substr(lwr, offset+i, 1) )
        printf "%s", tolower(out)
      else
        printf "%s", toupper(out)
    }

    printf "%s\n", substr($0, offset+len)
  }
}'

示例输入：

awk -v find=abcdef -v rep=pqrstu '{
  lwr=tolower($0)
  offset=index(lwr, tolower(find))

  if( offset > 0 ) {
    printf "%s", substr($0, 0, offset)
    len=length(find)

    for( i=0; i<len; i++ ) {
      out=substr(rep, i+1, 1)

      if( substr($0, offset+i, 1) == substr(lwr, offset+i, 1) )
        printf "%s", tolower(out)
      else
        printf "%s", toupper(out)
    }

    printf "%s\n", substr($0, offset+len)
  }
}'

示例输出：

other abcdef other
other Abcdef other
other AbCdEf other

更新

正如评论中指出的那样，上面的内容只会替换find每一行中的第一个实例。替换所有实例：

awk -v find=abcdef -v rep=pqrstu '{
  input=$0
  lwr=tolower(input)
  offset=index(lwr, tolower(find))

  if( offset > 0 ) {
    while( offset > 0 ) {

      printf "%s", substr(input, 0, offset)
      len=length(find)

      for( i=0; i<len; i++ ) {
        out=substr(rep, i+1, 1)

        if( substr(input, offset+i, 1) == substr(lwr, offset+i, 1) )
          printf "%s", tolower(out)
        else
          printf "%s", toupper(out)
      }

      input=substr(input, offset+len)
      lwr=substr(lwr, offset+len)
      offset=index(lwr, tolower(find))
    }

    print input
  }
}'

示例输入：

other abcdef other ABCdef other
other Abcdef other abcDEF
other AbCdEf other aBCdEf other

示例输出：

other pqrstu other PQRstu other
other Pqrstu other pqrSTU
other PqRsTu other pQRsTu other

Answer 3

你可以使用perl. 直接来自常见问题解答 - 引用自perldoc perlfaq6：

如何在 LHS 上不区分大小写替换，同时在 RHS 上保留大小写？

这是 Larry Rosler 的一个可爱的 Perlish 解决方案。它利用 ASCII 字符串上的按位异或的属性。

   $_= "this is a TEsT case";

   $old = 'test';
   $new = 'success';

   s{(\Q$old\E)}
   { uc $new | (uc $1 ^ $1) .
           (uc(substr $1, -1) ^ substr $1, -1) x
           (length($new) - length $1)
   }egi;

   print;

这里它是一个子程序，仿照上述：

       sub preserve_case($$) {
               my ($old, $new) = @_;
               my $mask = uc $old ^ $old;

               uc $new | $mask .
                       substr($mask, -1) x (length($new) - length($old))
   }

       $string = "this is a TEsT case";
       $string =~ s/(test)/preserve_case($1, "success")/egi;
       print "$string\n";

这打印：

           this is a SUcCESS case

作为替代方案，如果替换词比原始词长，则要保留替换词的大小写，您可以使用 Jeff Pinyan 编写的以下代码：

   sub preserve_case {
           my ($from, $to) = @_;
           my ($lf, $lt) = map length, @_;

           if ($lt < $lf) { $from = substr $from, 0, $lt }
           else { $from .= substr $to, $lf }

           return uc $to | ($from ^ uc $from);
           }

这会将句子更改为“这是一个成功案例”。

只是为了表明 C 程序员可以用任何编程语言编写 C，如果您更喜欢更像 C 的解决方案，以下脚本使替换具有与原始相同的大小写，一个字母一个字母。（它的运行速度也恰好比 Perlish 解决方案的运行速度慢 240%。）如果替换的字符数比被替换的字符串多，则替换的其余部分使用最后一个字符的大小写。

   # Original by Nathan Torkington, massaged by Jeffrey Friedl
   #
   sub preserve_case($$)
   {
           my ($old, $new) = @_;
           my ($state) = 0; # 0 = no change; 1 = lc; 2 = uc
           my ($i, $oldlen, $newlen, $c) = (0, length($old), length($new));
           my ($len) = $oldlen < $newlen ? $oldlen : $newlen;

           for ($i = 0; $i < $len; $i++) {
                   if ($c = substr($old, $i, 1), $c =~ /[\W\d_]/) {
                           $state = 0;
                   } elsif (lc $c eq $c) {
                           substr($new, $i, 1) = lc(substr($new, $i, 1));
                           $state = 1;
                   } else {
                           substr($new, $i, 1) = uc(substr($new, $i, 1));
                           $state = 2;
                   }
           }
           # finish up with any remaining new (for when new is longer than old)
           if ($newlen > $oldlen) {
                   if ($state == 1) {
                           substr($new, $oldlen) = lc(substr($new, $oldlen));
                   } elsif ($state == 2) {
                           substr($new, $oldlen) = uc(substr($new, $oldlen));
                   }
           }
           return $new;
   }

Answer 4

如果您将替换修剪为pqrstu，请尝试以下操作：

输入：

abcdef
Abcdef
AbCdEf
ABcDeF

输出：

$ perl -lpe 's/$_/$_^lc($_)^"pqrstu"/ei' file
pqrstu
Pqrstu
PqRsTu
PQrStU

如果你想用 替换prstuvxyz，可能是这样的：

$ perl -lne '@c=unpack("(A4)*",$_);
    $_ =~ s/$_/$_^lc($_)^"pqrstu"/ei;
    $c[0] =~ s/$c[0]/$c[0]^lc($c[0])^"vxyz"/ei;
    print $_,$c[0]' file
pqrstuvxyz
PqrstuVxyz
PqRsTuVxYz
PQrStUVXyZ

我找不到任何映射规则ABcDeF-> PQrStUvxyz。