使用Perl腳本來比較兩個文件

Question

我試圖寫一個Perl/awk腳本兩個文件這種格式輸出如下比較：

（截至現在，我可以diff使用 grep -Fxvf file1 file2 > file3兩個文件這是不夠的。）

注意：file1是file2的超集。

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;，但我不知道如果行開頭的空格是格式化，填充或實際重要，所以我沒有碰它。