perl比較兩個文件並打印匹配的行

Question

我有這個腳本，比較兩個文件並打印出不同的結果。現在我想更改腳本而不是打印出差異線，我想打印匹配的線。還要計算每次運行腳本時匹配的時間。你能請任何人給我一個建議。謝謝！

#! /usr/local/bin/perl 
# compare 
my $f1 = "/opt/test.txt"; 
my $f2 = "/opt/test1.txt"; 
my $outfile = "/opt/final_result.txt"; 
my %results =(); 
open FILE1, "$f1" or die "Could not open file: $! \n"; 
while(my $line = <FILE1>){ $results{$line}=1; 
} 
close(FILE1); 
open FILE2, "$f2" or die "Could not open file: $! \n"; 
while(my $line =<FILE2>) { 
$results{$line}++; 
} 
close(FILE2); 
open (OUTFILE, ">$outfile") or die "Cannot open $outfile for writing \n"; 
foreach my $line (keys %results) { print OUTFILE $line if $results{$line} == 1; 
} 
close OUTFILE; 

Answer 1

這不是做事情最清晰的方式......但艱苦的工作已經完成。反轉邏輯使其打印一切unless $results{$line} == 1或if $results{$line} != 1。

要添加計數：

print OUTFILE "Count: $results{$line} - $line" if $results{$line} != 1; 

或者，你可以過濾掉不需要用grep，避免完全的if條件：

foreach my $line (grep { $results{$_} != 1 } keys %results) { 

    print OUTFILE "Count: $results{$line} - $line"; 
} 

Answer 2

print OUTFILE $line if $results{$line} == 1; 

這將打印只出現一次線。

print OUTFILE $line if $results{$line} > 1; 

一個小的變化（==到>），它現在打印中出現一次以上線。這應該打印相同的重複行。

哦，如果你還想要計數，簡單地做：

if ($results{$line} > 1) { 
    print OUTFILE "$results{$line}: ", $line; 
} 

---

我寫了一個更簡潔，更靈活的版本在這裏。它採用可選的文件名並打印到STDOUT。

您可以將0代替其中一個名稱與其他文件進行比較。使用shell重定向將其保存到文件。

用法：

$ script.pl file1.txt file2.txt > outfile.txt 

代碼：

use strict; 
use warnings; 
use autodie; 

my $f1 = shift || "/opt/test.txt"; 
my $f2 = shift || "/opt/test1.txt"; 
my %results; 
open my $file1, '<', $f1; 
while (my $line = <$file1>) { $results{$line} = 1 } 
open my $file2, '<', $f2; 
while (my $line = <$file2>) { $results{$line}++ } 
foreach my $line (sort { $results{$b} <=> $results{$a} } keys %results) { 
    print "$results{$line}: ", $line if $results{$line} > 1; 
} 

Answer 3

嘗試測試::差異。看到這裏的代碼示例和輸出會是什麼樣子：

http://metacpan.org/pod/Test::Differences