比較兩個文件並在匹配的單詞後面打印N行

Question

我需要搜索File1的名稱對File2。如果找到匹配的名字，我需要在它後面打印三行。

- 文件1 -

Name1 
Name2 
Name3 

- 文件2 -

Topic1 ....description... 
lineA 
lineB 
lineC 
Name1 ....description... 
lineA 
lineB 
lineC 
Name3 ....description... 
lineA 
lineB 
lineC 
Topic2 ....description... 
lineA 
lineB 
lineC 
Topic3 ....description... 
lineA 
lineB 
lineC 

- 預期結果 -

Name1 ....description... 
lineA 
lineB 
lineC 
Name3 ....description... 
lineA 
lineB 
lineC 

• 我試圖用awk來找到兩個文件之間的匹配，只有成功地打印Name1 ....description...（不lineA - lineC）

  awk 'BEGIN { while (getline < "File1") arr[$0]++ }($1 in arr)' File2 
  

• 我知道grep命令可以用來打印使用模式

  某些行

  grep -A3 /pattern/ file 
  

我現在的問題是我不知道如何結合這兩個命令。也許有人可以建議一個Perl腳本來運行這些流程？

Answer 1

你可以通過用grep包含模式的文件（-f選擇），這樣

$ grep -F -f file1 -A3 file2 
Name1 ....description... 
lineA 
lineB 
lineC 
Name3 ....description... 
lineA 
lineB 
lineC 

使用-F指示模式是固定的字符串，而不是正則表達式。

Answer 2

這應該適合你。它將File1中的所有名稱讀入散列，以便可以快速檢查來自File2的值。

File2被逐行讀取，並且第一個字段與散列進行檢查以查看它是否是所需名稱之一。如果是，則打印當前行和下面三行。

use strict; 
use warnings; 
use 5.010; 
use autodie; 

my %names; 

open my $fh, '<', 'File1'; 

while (<$fh>) { 
    chomp; 
    ++$names{$_}; 
} 

open $fh, '<', 'File2'; 

while (<$fh>) { 
    my ($name) = split; 
    if ($names{$name}) { 
    print; 
    print scalar <$fh> for 1 .. 3; 
    } 
} 

輸出

Name1 ....description... 
lineA 
lineB 
lineC 
Name3 ....description... 
lineA 
lineB 
lineC 

Answer 3

我會用xargs的：

cat File1 | xargs -I NAME grep -A3 NAME File2 

來尋找文件2的名稱和顯示匹配線和三條線後的正規途徑它是：

grep -A3 NAME File2 

生成文件1的每一行這樣的命令，使用該行，NAME是這樣的：

cat File1 | xargs -I NAME <COMMAND with NAME in it>