如何使用 vi 或 sed 替换指定字符串之间多次出现的字符？

Question

我试图替换“，”，只有当它发生在 65510 和“i”之间时：

2001::/32,fd00::230:5,0,100,0,65510,6939,i

2001:200:900::/40,fd00::230:5,0,100,0,65510,6939,2516,7660,7660,7660,i

所以所需的 output 是：

2001::/32,fd00::230:5,0,100,0,65510_6939,i

2001:200:900::/40,fd00::230:5,0,100,0,65510_6939_2516_7660_7660_7660,i

我尝试了以下方法：

sed -e 's/,\([^65510]*\)i/_\1i/' input-file.txt

但是output只替换了最后一个“，”：

2001::/32,fd00::230:5,0,100,0,65510,6939_i

2001:200:900::/40,fd00::230:5,0,100,0,65510,6939,2516,7660,7660,7660_i

Answer 1

您能否尝试使用 GNU awk中的示例进行跟踪、编写和测试。

awk '
match($0,/65510.*i/){
  val=substr($0,RSTART,RLENGTH)
  gsub(/,/,"_",val)
  print substr($0,1,RSTART-1) val substr($0,RSTART+RLENGTH)
}
' Input_file

更通用的答案：如果我们不止一次出现i并且它可能会或可能不会像65510....i....i这样的系列出现，那么可以尝试关注。

awk '
{
  line=""
  while(match($0,/65510[^i]*/)){
    val=substr($0,RSTART,RLENGTH+1)
    gsub(/,/,"_",val)
    line=(line?line:"")substr($0,1,RSTART-1) val
    $0=substr($0,RSTART+RLENGTH+1)
  }
  if($0!=""){
    line=line $0
  }
  print line
}
'  Input_file

Answer 2

这可能对您有用（GNU sed）：

sed -E '/\b65510\b.*i/{:a;s/\b(65510\b[^,i]*),([^i])/\1_\2/;ta}' file

如果当前行包含65510然后是i ，则将它们之间的任何,替换为_ 。

Answer 3

使用sed您可以使用循环：

[STEP 101] $ cat file
2001::/32,fd00::230:5,0,100,0,65510,6939,i
2001:200:900::/40,fd00::230:5,0,100,0,65510,6939,2516,7660,7660,7660,i
[STEP 102] $
[STEP 103] $ sed -e :loop -e 's/\(,65510.*\),\(.*,i\)/\1_\2/; tloop' file
2001::/32,fd00::230:5,0,100,0,65510_6939,i
2001:200:900::/40,fd00::230:5,0,100,0,65510_6939_2516_7660_7660_7660,i
[STEP 104] $
[STEP 105] $ # if your sed supports -E it can be a bit simpler --
[STEP 106] $ sed -E -e :loop -e 's/(,65510.*),(.*,i)/\1_\2/; tloop' file
2001::/32,fd00::230:5,0,100,0,65510_6939,i
2001:200:900::/40,fd00::230:5,0,100,0,65510_6939_2516_7660_7660_7660,i

关于t命令：

t label

如果s///自最后一个输入行被读取并且自最后一个t或T命令以来已成功替换，则分支到label ； 如果省略label ，则跳转到脚本末尾。

---

你可以使用酷炫的 sed 调试工具sedsed来看看它是如何工作的：

Answer 4

使用 GNU awk 将第三个 arg 用于 match() 和 gensub()：

$ awk 'match($0,/(.*,)(65510.*)(,i.*)/,a){$0=a[1] gensub(/,/,"_","g",a[2]) a[3]} 1' file
2001::/32,fd00::230:5,0,100,0,65510_6939,i

2001:200:900::/40,fd00::230:5,0,100,0,65510_6939_2516_7660_7660_7660,i

以上只是将每个输入行分为 3 部分（直到65510之前的逗号部分，从65510到i之前的逗号之前的字符的部分，以及该行的 rest ）然后替换每个,与_在那个中间部分和将 3 个零件重新粘贴在一起，形成修改后的 output 线。 如果输入行不包含,65510.*,i则保持原样。

如果,65510x,.*,i （其中x是任何不是逗号的字符）可以存在于您的输入中，它将失败 - 如果可能发生这种情况，则将其包含在您问题的示例中。

Answer 5

你可以试试 Perl

$ cat lou.txt
2001::/32,fd00::230:5,0,100,0,65510,6939,i
2001:200:900::/40,fd00::230:5,0,100,0,65510,6939,2516,7660,7660,7660,i
$ perl -pe ' s/65510\K(.+?)(?=,i)/$c=$1;$c=~s!,!_!g;$c/ge ' lou.txt
2001::/32,fd00::230:5,0,100,0,65510_6939,i
2001:200:900::/40,fd00::230:5,0,100,0,65510_6939_2516_7660_7660_7660,i
$

或者

$ perl -pe ' s/(?=65510)(.+?)(?=,i)/$c=$1;$c=~s!,!_!g;$c/ge ' lou.txt
2001::/32,fd00::230:5,0,100,0,65510_6939,i
2001:200:900::/40,fd00::230:5,0,100,0,65510_6939_2516_7660_7660_7660,i
$

如果你确定在 65510 之前总会有一个逗号，那么

$ perl -pe ' s/,(?=65510)(.+?)(?=,i)/$c=$1;$c=~s!,!_!g;sprintf(",%s",$c)/ge ' lou.txt
2001::/32,fd00::230:5,0,100,0,65510_6939,i
2001:200:900::/40,fd00::230:5,0,100,0,65510_6939_2516_7660_7660_7660,i
$

如果 65510 两边都用逗号包裹，那么

$ perl -pe ' s/,(?=65510,)(.+?)(?=,i)/$c=$1;$c=~s!,!_!g;sprintf(",%s",$c)/ge ' lou.txt
2001::/32,fd00::230:5,0,100,0,65510_6939,i
2001:200:900::/40,fd00::230:5,0,100,0,65510_6939_2516_7660_7660_7660,i
$