从一行中替换多个单词。txt文件[重复]

Question

我正在尝试替换txt文件中的多个单词。

有两行的示例如下：

phone number: 123 addr: xyz
phone no: 456 home address: abc 

假设我想用phonenum和addr替换“phone number”和“phone no”

目前我只知道如何运行多个sed命令，我正在寻找一些指导来找到一种更有效的方法。

谢谢你！

Answer 1

使用Perl，使用散列，散列的键是要替换的单词，值是它们所需的替换。连接到管道上的键串用作替换操作符s///g中的模式，使用/g修饰符可以对每行启用多个替换。

echo "phone number: 123 addr: xyz\nphone no: 456 home address: abc" > in.txt

perl -lpe '
BEGIN {
    %re = (
        q{phone number}  => q{phonenum},
        q{phone no}      => q{phonenum},
        q{addr}          => q{address1},
        q{address}       => q{address1},
    );
    $re_str = join q{|}, keys %re; # "phone number|phone no|addr|address"
}
s/\b($re_str)\b/$re{$1}/g;
' in.txt > out.txt

在文件out.txt中输出：

phonenum: 123 address1: xyz
phonenum: 456 home address1: abc

Perl one liner使用以下命令行标志：
-e：告诉Perl在线查找代码，而不是在文件中
-p：在输入上一次循环一行，默认情况下将其分配给$\uu。在每次循环迭代后添加print$\uz
-l：在内联执行代码之前，先去掉输入行分隔符（“\n”，默认为*NIX），然后在打印时附加它。

q{…} ：指定单引号字符串的另一种方法（“…”在这里不使用，因为它们必须在单引号Perl one liner中转义）。

s/\b（$re\u str）\b/$re{$1}/g：在$re_str周围的括号将模式捕获到$1变量中\b表示分词，即单词的开头或结尾。根据评估顺序，需要添加\b以防止将家庭地址替换为家庭地址。

另请参见：
perldoc perlrun：如何执行Perl解释器：命令行开关
perldoc perlre：Perl正则表达式（正则表达式）
perldoc perlRequest：Perl正则表达式快速启动