open A, "<A.txt" or die ""
open B, "<B.txt" or die ""
open C, ">C.txt" or die ""
my %a
while(<A>){
chomp($_)#去掉回车
my @aArr = split
$a{$aArr[0]} = $_
}
while(<B>){
chomp($_)#去掉回车消困前
my @bArr = split
if(exists $a{$bArr[0]}){
print C $a{$bArr[0]}." ".$bArr[1]
}
}
close A
close B
close C
system(pause)
其中A.txt为第一个文件,B.txt为第二个文件,C.txt为最终生成的,也是所要文件。
不知是拿清否符合楼尺虚主要求。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)