文件內(nèi)容比較

yinjingolay

例如有兩個(gè)文件A.txt 和 B.txt ,現(xiàn)在我希望通過(guò)shell來(lái)判斷文件A中的內(nèi)容是否在文件B中也出現(xiàn)，具體點(diǎn)如下：
文件A.txt 中內(nèi)容
a001
a002
b003
文件B.txt中內(nèi)容
a001
a002
b003
c004
d005
希望能通過(guò)腳本實(shí)現(xiàn)判斷A.txt中的內(nèi)容是否出現(xiàn)在B.txt文件中
如果A.txt中的內(nèi)容B中也有，則統(tǒng)計(jì)一共有多少個(gè)是相同的

seesea2517

1. [seesea2517@UC ~] #grep -cfA.txt B.txt
   
2. 3
   
3. 
   
4. [seesea2517@UC ~] #grep -fA.txt B.txt
   
5. a001
   
6. a002
   
7. b003
   

復(fù)制代碼

seesea2517

這個(gè)問(wèn)題是不應(yīng)該問(wèn)上來(lái)的，有位老師姓搜名索，有位GG叫谷哥，有位MM叫度娘，有位可靠的男人名叫 man，有位咨詢(xún)家名叫 info。

cuteorange

yinjingolay 發(fā)表于 2012-11-14 11:10
例如有兩個(gè)文件A.txt 和 B.txt ,現(xiàn)在我希望通過(guò)shell來(lái)判斷文件A中的內(nèi)容是否在文件B中也出現(xiàn)，具體點(diǎn)如下： ...

貼個(gè)perl,
#!/usr/bin/perl
use strict;
use warnings;
use Data:umper;

my %hash;
open my $fhb, "<", "B.txt" or die $!;
while (<$fhb> {
        chomp;
        $hash{$_}++;
}
close $fhb;

open my $fha, "<", "A.txt" or die $!;
while (<$fha> {
        chomp;
        $hash{$_}++ if exists $hash{$_};
}
close $fha;
print Dumper(%hash);

yestreenstars

回復(fù) 4# cuteorange


    一個(gè)用shell簡(jiǎn)單幾句就能處理的文件，用perl處理起來(lái)居然這么復(fù)雜

personball

seesea2517 發(fā)表于 2012-11-14 11:17
這個(gè)問(wèn)題是不應(yīng)該問(wèn)上來(lái)的，有位老師姓搜名索，有位GG叫谷哥，有位MM叫度娘，有位可靠的男人名叫 man，有位 ...

經(jīng)典

yinjingolay

能用shell簡(jiǎn)單點(diǎn)嘛