获取两个大文本文件的不同行

smile1129

两个大文本文件（>200MB）1.txt,  2.txt (2.txt是1.txt中的部分内容)，想获取两个文本的差异部分输出到3.txt.
windows，使用的activeperl。  请问如何perl编程？谢谢

睫毛上的雾

open IN, "d:/1.txt";
@info = <IN>;
close IN;
open INN, "d:/2.txt";
@inf = <INN>;
close INN;
my %tmp;
@tmp{@info}=();
delete @tmp{@inf};
@result=keys %tmp;
print"@result\n";
open XXX,"> d:/3.txt";
print XXX "@result\n";
close XXX;