讀取一個字符串直到關鍵字，並用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一起使用，但是我認爲正則表達式有點難度（至少對我而言）。