如何把2.txt里面有的行,但是1.txt里面沒有的行,寫到3.txt里面?

xiaomm250

如何把2.txt里面有的行,但是1.txt里面沒有的行,寫到3.txt里面?
1.txt與2.txt文件里面的內(nèi)容很接近,
那么請問如何把2.txt里面有的行,但是1.txt里面沒有的行,
寫到3.txt里面呢?

xiaomm250

本人perl菜鳥一枚, 只會(huì)些簡單的正則表達(dá)式這種弱智的,復(fù)雜的不會(huì)
學(xué)過簡單的c語言

q1208c

1. diff 1.txt 2.txt | sed -n '/^> /s/^> //p' > 3.txt

復(fù)制代碼

xiaomm250

q1208c 發(fā)表于 2014-04-11 16:48

我想的是perl

xiaomm250

把1.txt文件里面的內(nèi)容賦值給數(shù)組a
把2.txt文件里面的內(nèi)容賦值給數(shù)組b
foreach i  in a
    k=0
    foreach j in b
        if i等于j then
             k=k+1
             退出本層循環(huán)
        end
    end
    if k>0 then
        輸出i到3.txt
    end
end
這個(gè)是我大致的思路,如何用perl語言來描述呢?????????

q1208c

回復(fù) 5# xiaomm250

這要看你的文件有多大. 如果只有幾行, 當(dāng)然沒問題. 如果有上百萬行. 你得多少內(nèi)存呀.
   

xiaomm250

q1208c 發(fā)表于 2014-04-11 17:50
回復(fù) 5# xiaomm250

這要看你的文件有多大. 如果只有幾行, 當(dāng)然沒問題. 如果有上百萬行. 你得多少內(nèi)存呀 ...

1. #2.txt有的,但是1.txt卻沒有的,把這些行輸出到3.txt
   
2. open(File1,'<1.txt') or die "can not open file:$!\n";
   
3. open(File2,'<2.txt') or die "can not open file:$!\n";
   
4. open(File3,'>3.txt') or die "can not open file:$!\n";
   
5. foreach $line2(<File2>)
   
6. {
   
7.     $k=0;
   
8.     foreach $line1(<File1>)
   
9.     {
   
10.         if ($line2 eq $line1)
    
11.         {
    
12.             $k=$k+1;
    
13.         }
    
14.     }
    
15.     if ($k==0)
    
16.     {
    
17.         print File3 $line2;
    
18.     }
    
19. }
    
20. close(File1);
    
21. close(File2);
    
22. close(File3);
    

復(fù)制代碼

為什么我的這個(gè)代碼會(huì)沒用呢??????????

q1208c

回復(fù) 7# xiaomm250

    http://search.cpan.org/~adamk/Text-Diff-1.37/lib/Text/Diff.pm

這個(gè)可能是你需要的.

xiaomm250

誰能給一個(gè)代碼?

substr函數(shù)

大致的思路

1. open( File1, '<1.txt' ) or die "can not open file:$!\n";
   
2. open( File2, '<2.txt' ) or die "can not open file:$!\n";
   
3. open( File3, '>3.txt' ) or die "can not open file:$!\n";
   
4. 
   
5. my %F1 = map { $_, 1 } <File1>;
   
6. 
   
7. while (<File2>) {
   
8.     print File3 $_ unless exists $F1{$_};
   
9. }
   

復(fù)制代碼