读取一个字符串直到关键字，并用UNIX中的另一个字符串替换字符

Question

我是UNIX新手，正在练习shell脚本。我有一个应用程序，我需要字符串搜索和替换。

文件1和文件2中有一些行。我有一个搜索关键字。

文件1：如果键词存在于文件1和文件然后在2文件2中的键字后的刺痛应与该串中文件1.

的关键词例如后更换：

abc def ghi jkl **unix** is the key 
This file contains 3 lines and **unix** is the key 

文件2：

This is a sample sentence **unix** in the second file 
This is line 2 and **unix** the new line in the second file 

的关键词是“UNIX”。这里UNIX后的字符串中的文件的文件1为“是关键”，所以“UNIX”之后的字符串中文件2即“在s第二个文件“应该替换为”是关键“。因此字符串读取和替换后的文件的输出应该像

文件1：

abc def ghi jkl **unix** is the key 
This file contains 3 lines and **unix** is the key 

文件2：

This is a sample sentence **unix** is the key 
This is line 2 and **unix** is the key 

我用单独以下命令

grep sed awk 

但我无法弄清楚如何可以结合搜索和替换。 任何人都可以告诉我如何完成上述任何建议或帮助表示赞赏。

在此先感谢

Answer 1

对于Unix基本的工具，这是最简单的Perl中我。这将演示基本的方法和引用;如果您愿意，您可以替换其他工具。

鉴于这些文件：

$ cat /tmp/f1.txt 
abc def ghi jkl **unix** is the key 
This file contains 3 lines and **unix** is the key 

$ cat /tmp/f2.txt 
This is a sample sentence **unix** in the second file 
This is line 2 and **unix** the new line in the second file 

首先，让我们的关键是：

$ key=$(perl -lne 'if (/^.*\*\*unix\*\*(.+)$/) {print $1; exit;} ' /tmp/f1.txt) 

注意周围通话与$()这对Perl执行命令（在这种情况下，Perl的一个班轮）并将输出分配给变量key。

$ echo "$key" 
is the key 

（注意周围"$key""使得打印的前导空格...）

现在更换串线，以线在第二个文件：

$ perl -ple "s/(.*\*\*unix\*\*)(.*)/\1$key/" /tmp/f2.txt 
This is a sample sentence **unix** is the key 
This is line 2 and **unix** is the key 

注意在第二次调用Perl时使用"而不是'。这允许从Bash中的命令行替换使用值$key。

如果你想设置一个猛砸变量与您的目标的关键：

$ tgt='\*\*unix\*\*' 
$ key=$(perl -lne "if (/^.*$tgt(.+)/) {print \$1; exit;} " /tmp/f1.txt) 
$ perl -ple "s/(.*$tgt)(.*)/\1$key/" /tmp/f2.txt 
This is a sample sentence **unix** is the key 
This is line 2 and **unix** is the key 

（注意" VS更常见'以便使用的$tgt和$key值。）

同方法可以与awk或sed一起使用，但是我认为正则表达式有点难度（至少对我而言）。