同一文件上的多个替换 - awk

Question

我正在尝试使用 awk 单行脚本对同一个文件进行多次替换。 用于变量赋值的文件如下：

> cat names 
1 Dusky
2 Flag
3 Mon

我想在这个文件中进行替换：

> cat file.txt 
  1        1   0.6248 0.3752 
  2        2   0.0430 0.9570 
  3        3   0.0624 0.9376

我尝试过的是：

while read num name; do 
    awk -v J=$num -v R=$name '{if (match($1, J)) $2=R; print;}' file.txt; 
done < names

但此代码会打印要替换的每一行的输入文件。

1 Dusky 0.6248 0.3752
  2        2   0.0430 0.9570 
  3        3   0.0624 0.9376 
  1        1   0.6248 0.3752 
2 Flag 0.0430 0.9570
  3        3   0.0624 0.9376 
  1        1   0.6248 0.3752 
  2        2   0.0430 0.9570 
3 Mon 0.0624 0.9376

我怎样才能让它只打印一次被替换的行？ 可以在 awk 或 perl 中。

期望的输出：

1 Dusky 0.6248 0.3752
2 Flag 0.0430 0.9570
3 Mon 0.0624 0.9376

Answer 1

怎么样

$ awk 'NR==FNR{line[$1]=$2; next} {line[$1]=line[$1]" "$3" "$4} END{for( i in line) print i, line[i]}' names file
1 Dusky 0.6248 0.3752
2 Flag 0.0430 0.9570
3 Mon 0.0624 0.9376

Answer 2

读取第一个文件并存储 ID 怎么样？然后，将第二个文件中的第二个字段替换为匹配的名称/id。

awk 'FNR==NR {a[$1]=$2; next} {$2=a[$2]; print}' names f

对于给定的输入，它会返回：

1 Dusky 0.6248 0.3752
2 Flag 0.0430 0.9570
3 Mon 0.0624 0.9376

说明

• FNR==NR {a[$1]=$2; next} 读取第一个文件时，将第二个字段存储在索引为第一个字段的数组中。这样，1 映射到 Dusky，2 到 Flag，...
• {$2=a[$2]; print} 读取第二个文件时，将第二个字段替换为第一个文件中对应的 id。然后，打印。这可以更惯用地写成{$2=a[$2]}1。

---

请注意，您可以添加安全检查：如果确实存在，只需替换第二个文件上的第二个字段：

awk 'FNR==NR {a[$1]=$2; next} {if ($2 in a) $2=a[$2]} 1' names f

Answer 3

从命令行使用 perl，

perl -lane'
  BEGIN{ local @ARGV=pop; %h= map split,<> }
  $_ = $h{$_} //$_ for $F[1]; print "@F"
' file.txt names

输出

1 Dusky 0.6248 0.3752
2 Flag 0.0430 0.9570
3 Mon 0.0624 0.9376