搜索模式，在该行上使用 sed 仅更改文件的第 3 列和第 4 列

Question

以下是我尝试过的

sed命令必须更改第 3 行的第 3 列和第 4 列，目的是仅更改以sox4d2开头的行。

File content :
 
 sox4d4 ;/appl/m4d4/current ;TEXTMX40 ;TEXTMX40 ;
 sox4d5 ;/appl/m4d5/current ;TEXTMX40 ;TEXTMX40 ;
 sox4d2 ;/appl/m4d2/current ;TEXTMX40 ;TEXTMX40 ;
 
 
 Expected content 
 
 sox4d4 ;/appl/m4d4/current ;TEXTMX40 ;TEXTMX40 ;
 sox4d5 ;/appl/m4d5/current ;TEXTMX40 ;TEXTMX40 ;
 sox4d2 ;/appl/m4d2/current ;TEXTM30 ;TEXTM30 ;
 

我只想更改第 3 行的第 3 列和第 4 列的值

下面是我跑的 sed 但这里我直接搜索字符串而不是列号：

    sed -i "/sox4d2 /s/TEXTMX40/TEXTM30/g", file.txt

我实际上想从 perl 脚本运行这个命令。 下面是 perl 脚本中的片段，但即使在这里我也没有使用列号：

  my $db_host = "TEXTM30";
  my $ser=srnmain.intranet
  
  system(
    'ssh' => ('-q',$ser),
     sed => ( '-i',qq(/sox4d2/s/\bTEXTMX40\b/$db_host/),$dest_file),
  
  );

Answer 1

使用sed怎么样：

sed -i -E '/sox4d2 /s#([^;]+;[^;]+;)[^;]+;[^;]+#\1TEXTMX30 ;TEXTMX30 #' file.txt

如果perl是您的选择，以下也将起作用：

perl -F' ;' -i -ape '$F[2] = $F[3] = "TEXTMX30" if /sox4d2 /; $_ = join(" ;", @F)' file.txt

Answer 2

使用显示的示例，您可以尝试以下操作。 在 GNU awk中编写和测试。 这应该是更通用的解决方案，在行变量中给出行号，在line变量中给出columns名，并在vals变量中给出它们各自的值，用逗号分隔。

awk -v line="3" -v columns="3,4" -v vals="TEXTMX30,TEXTMX30" '
BEGIN{
  num=split(columns,arr1,",")
  num2=split(line,arr3,",")
  for(k=1;k<=num2;k++){
    lines[arr3[k]]
  }
  split(vals,arr2,",")
  for(i=1;i<=num;i++){
    values[arr1[i]]=arr2[i]
  }
}
(FNR in lines){
  for(i=1;i<=NF;i++){
    if(i in values){ $i=";"values[i] }
  }
}
1' Input_file

Answer 3

你可以考虑这个awk ：

awk 'BEGIN {FS=OFS=" ;"} $1 == "sox4d2" {$3=$4="TEXTMX30"; $5=""} 1' file

sox4d4 ;/appl/m4d4/current ;TEXTMX40 ;TEXTMX40 ;
sox4d5 ;/appl/m4d5/current ;TEXTMX40 ;TEXTMX40 ;
sox4d2 ;/appl/m4d2/current ;TEXTMX30 ;TEXTMX30 ;