Question

perl比较两个文件

请教一下各位，我有两个vcf格式的文件，现在要在文件一中的某一列寻找与文件二中某一列相同的内容，并且输出这些相同的内容，请问大概的思路是什么？谢谢！

Answer 1

您好，您这样写：
open C, ">C.txt" or die "$! can't create C";

open B, "B文件" or die "$! can't open B";
my @inB = <F>;
close B;

open A, "A文件" or die "$! can't open A";
while ( my $line = <A> ) {
print C $line if ( grep {$_ eq $line} @inB );
}
close A;

close C;