请问两个文件比对后，如何只保留不重复的部分？

perl911

文本1
qwe
123
wer
u7y7


文本2
qwe
dfg123
dffh
u7y7

同文本2比对后输出不重复的：

123
wer

请大家帮忙指点一下，多谢了！

[[i] 本帖最后由 perl911 于 2006-1-17 23:31 编辑 [/i]]

vio

用sort

http://bbs.chinaunix.net/viewthr ... &highlight=sort

怒剑狂啸

描述的不是很全面，也不知道你的具体意图。
一种理解可以这样做

1. 
   
2. @data1=<FILE1>;
   
3. @data2=<FILE2>;
   
4. ($data2[$_] eq $data1[$_]) || print $data1[$_] foreach (0..$#data1);
   

复制代码

perl911

抱歉，是俺没说清楚！
俺的意思是：只要文本2（母文件）包含的字符，文本1就要去掉。
输出后的文本1全是文本2没有的。

[ 本帖最后由 perl911 于 2006-1-18 18:03 编辑 ]

兰花仙子

1. use strict;
   
2. 
   
3. open T1, "1.txt" or die "$!";
   
4. open T2, "2.txt" or die "$!";
   
5. my %diff;
   
6. 
   
7. while (<T2>)
   
8. {
   
9.     $diff{$_}=1;
   
10. }
    
11. 
    
12. while (<T1>)
    
13. {
    
14.     print unless $diff{$_};
    
15. }
    
16. 
    
17. close T2;
    
18. close T1;

复制代码

perl911

厉害啊！

while (<T2>)
{
    $diff{$_}=1;
}

给散列赋值，所有的值都是1。

while (<T1>)
{
    print unless $diff{$_};

}

第二句不太明白。
请兰花仙子指点，非常感谢！

[ 本帖最后由 perl911 于 2006-1-18 22:05 编辑 ]

兰花仙子

原帖由 perl911 于 2006-1-18 21:23 发表
厉害啊！

while (<T2>)
{
    $diff{$_}=1;
}

给散列赋值，所有的值都是1。

while (<T1>)
{
    print unless $diff{$_};

}

第二句不太明白。
请兰花仙子指点，非常感谢！

print unless $diff{$_};这句的意思是，如果以当前行$_为key的hash  value不存在，那就说明第2个文件里不存在这个当前行，那就把它print出来。

perl911

呵呵，俺终于弄明白了。多谢兰花仙子热心指点！