主页 / unix / 问题 / 785831
Accepted
CPC_92
Asked: 2024-10-30 07:42:18 +0800 CST

如何在同一行不存在其他字符串的情况下编辑特定字段中与模式匹配的字符串

  • 772

仅当字符串“NA”位于文件的第 6 个字段中时，我才需要将其编辑为“Na”。我目前可以使用以下方法实现此目的：

awk '{gsub("NA","Na",$6)}1' $filename

但是我需要一个附加条件，即如果字符串“HEM”在同一行，则不会发生这种情况。例如，我希望以下行保持不变：

7353  NA       5.4433   24.4404   -3.0784 NA    456  HEM

最后，上述命令删除了字段之间的额外填充。如果有一个命令可以在不改变字段间距的情况下实现这一点，那就太棒了，但这个功能不是必需的。

我认为这可以通过花一些时间读取每个文件并打印每一行，然后只用 if 语句进行编辑来完成，但我试图避免这种笨重的事情。

我觉得这个任务很难用简单的方式完成，但如果有 unix 专家知道如何做，我将不胜感激。谢谢！

awk

3 个回答

  1. 使用 GNU awk 将第三个参数改为match()and \s/\S简写：

    awk '!/HEM/ && match($0,/^((\S+\s+){5})NA(\s.*)/,a){ $0=a[1] "Na" a[3] } 1' file

    或者使用任何 POSIX awk：

    awk '!/HEM/ && match($0,/([^[:space:]]+[[:space:]]+){5}NA[[:space:]]/){ $0=substr($0,1,RLENGTH-3) "Na" substr($0,RLENGTH) } 1' file
    • 1

  2. 使用gawk：

    当 $0 通过赋值或替换被改变时，$1、$2 等以及 NF 都将被重新计算：同样，当 $1、$2 等中的一个被改变时，$0 将使用 OFS 重新构造以分隔字段。

    ——摘自AWK 编程语言

    $ awk '!/HEM/{$0 = gensub(/^((\S+\s+){5})NA(\s.*)/, "\\1Na\\3", "1")}1' file

    或者

    $ awk '!/HEM/ 
  { 
    n=split($0,a, /\s*\S+/, seps); 
    gsub(/NA/, "Na",seps[6]); 
    $0 =""; 
    for(i=1;i<=n;i++) $0 = $0 seps[i-1] a[i] 
 }1'

     $ awk -F'[ ]' '!/HEM/
      {
     for(i=1;i<=NF;i++) 
       if ($i ~ /[^[:space:]]+/)
           {
          ++c;
          if (c==6) gsub(/NA/, "Na", $i)
          }   
      c=0
   }1'
    • 1
  3. Best Answer

    用perl代替awk：

    $ cat file
7353  NA       5.4433   24.4404   -3.0784 NA    456  HEM
7353  NA       5.4433   24.4404   -3.0784 ANANAN    456  MEH
$ perl -pe 's{^\s*(\S+\s+){5}\K\S+}{$& =~ s/NA/Na/gr}e unless /HEM/' file
7353  NA       5.4433   24.4404   -3.0784 NA    456  HEM
7353  NA       5.4433   24.4404   -3.0784 ANaNaN    456  MEH

    ^\s*(\S+\s+){5}\K\S+匹配s开头的可选空格，后跟5非空格S+s空格，再后跟非空格（第6 个字段），我们K将其视为匹配项。

    $& =~ s/NA/Na/gr被评估为 perl 代码，其中匹配的 ( )中的 ubstitutione的结果s（g全局类似于您的gsub()）被返回作为外部的替换。NANa$&rs{regex}{replacement}e

    如果您不打算替换第6个字段NA 内的所有出现的，而只是将其替换为，那么可以简化为：NaNA

    perl -ne 's/\s*(\S+\s+){5}\KNA(?!\S)/Na/ unless /HEM/' file

    请注意(?!\S)负向预测运算符，它检查后面NA是否跟着非空格，如果没有非空格，它也会替换NAPOLEON为NaPOLEON。

    甚至sed可以比那里更容易做到awk：

    s='[[:space:]]' S='[^[:space:]]'
sed -E "/HEM/! s/^($s*($S+$s+){5})NA($s|\$)/\1Na\3/" file

    使用 GNUsed或兼容版本，你可以像在 perl 中一样使用\s/\S来代替[[:space:]]/ [^[:space:]]。GNU sed（以及一些其他版本，尽管有时具有不兼容的接口）还支持-ini处编辑perl。

    -E现在是标准，并被大多数实现所支持sed。如果你使用的是一个不支持它的非常旧的系统，你可以将其更改为：

    s='[[:space:]]' S='[^[:space:]]'
sed "/HEM/! s/^\($s*\($S\{1,\}$s\{1,\}\)\{5\}\)NA\($s.*\)\{0,1\}\$/\1Na\3/"

    处理空格分隔字段同时保留间距的更通用方法是将输入分解为字段列表和空格分隔符字符串。

      7353  NA       5.4433   24.4404   -3.0784   NA    456   HEM

    例如，将其分解为 17 个“领域”：

    1 2   3 4 5      6     7  8      9  10     11 12 13 14 15 16 17
  7353  NA       5.4433   24.4404   -3.0784   NA    456   HEM

    您之前的第6 个字段在新的细分中将成为第 12个。

    在perl（请注意，@rrays 从 0 开始索引，因此第12 个字段变成$F[11]）：

    perl -pe '
  unless (/HEM/) {
    @F = /^\s*|\S+|\s+/g;
    $F[11] =~ s/NA/Na/g; # or $F[11] = "Na" if $F[11] eq "NA"
                         # or $F[11] =~ s/^NA$/Na/
                         # or even $F[11] =~ s/^na$/Na/i
    $_ = "@F";
  }' file

    请注意，我们允许第一个“字段”为空，方法是使用 对其进行特殊处理^\s*，而所有其他字段都必须为非空（\s+至少有一个空格字符）。请注意，在perl -n/-psed 模式（或-awk 模式）下，除非您传递-l选项，否则换行符分隔符将包含在模式空间中（$_），因此它将是此处最后一个空格“字段”的一部分（上例中为第17 个）。

    • 0

相关问题