Использование сценария Perl для сравнения двух файлов

Question

Я пытаюсь написать сценарий Perl/AWK для сравнения вывода двух файлов в этом формате ниже:

(В настоящее время я могу diff два файла с помощью grep -Fxvf file1 file2 > file3 что недостаточно.)

Примечание: file1 является надмножеством файла2.

file1:

aaaa 
bbbb 
cccc 
dddd 

file2:

bbbb 
cccc 

Ожидаемый результат файла:

aaaa No 
bbbb yes 
cccc yes 
dddd No 

Answer 1

С AWK:

awk 'NR == FNR { a[$0]; next } { print $0, ($0 in a ? "yes" : "no") }' file2 file1 

То есть:

NR == FNR {        # while processing the first file 
    a[$0]         # (i.e., file2) just remember what you 
    next         # saw, and don't do anything else 
} 
{          # afterwards: 
    print $0, ($0 in a ? "yes" : "no") # print the line followed by "yes" or 
             # "no" depending on whether the line 
             # was seen before in file2 
} 

Answer 2

В Perl'е

use strict; 
use warnings; 

open (my $file_2,"<", "file2.txt") or die $!; 
my %seen; 
while (my $line = <$file_2>) { 
    chomp ($line) ; 
    $seen{$line}++; 
} 

close ($file_2); 

open (my $file_1, "<", "file1.txt") or die $!; 
while (my $line1 = <$file_1>) { 
    chomp $line1; 
    print $line1, " ", $seen{$line1} ? "yes" : "no", "\n"; 
} 
close ($file_1); 

Печать:

aaaa no 
    bbbb yes 
    cccc yes 
    dddd no 

Вы можете применить регулярное выражение, чтобы убрать пробелы, такие как $line =~ s/^\s+//g;, но я не был уверен, если пробел в начале строки был форматированием, дополнением или действительно важным, поэтому я не касался его.