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

xiaomm250

如何把2.txt里面有的行,但是1.txt里面没有的行,写到3.txt里面?
1.txt与2.txt文件里面的内容很接近,
那么请问如何把2.txt里面有的行,但是1.txt里面没有的行,
写到3.txt里面呢?

xiaomm250

本人perl菜鸟一枚, 只会些简单的正则表达式这种弱智的,复杂的不会
学过简单的c语言

q1208c

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

复制代码

xiaomm250

q1208c 发表于 2014-04-11 16:48

我想的是perl

xiaomm250

把1.txt文件里面的内容赋值给数组a
把2.txt文件里面的内容赋值给数组b
foreach i  in a
    k=0
    foreach j in b
        if i等于j then
             k=k+1
             退出本层循环
        end
    end
    if k>0 then
        输出i到3.txt
    end
end
这个是我大致的思路,如何用perl语言来描述呢?????????

q1208c

回复 5# xiaomm250

这要看你的文件有多大. 如果只有几行, 当然没问题. 如果有上百万行. 你得多少内存呀.
   

xiaomm250

q1208c 发表于 2014-04-11 17:50
回复 5# xiaomm250

这要看你的文件有多大. 如果只有几行, 当然没问题. 如果有上百万行. 你得多少内存呀 ...

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);
    

复制代码

为什么我的这个代码会没用呢??????????

q1208c

回复 7# xiaomm250

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

这个可能是你需要的.

xiaomm250

谁能给一个代码?

substr函数

大致的思路

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. }
   

复制代码