用perl处理文件：比如我想比较文件A和文件B1,B2,……B20,找到相同的内容输出到文件C.怎么同时比较？

Question

不要说合并文件，我就是为了同时处理，把一个很大的文件切分成20个小文件的。同时，主要是怎么同时处理？

Answer 1

第一步： 把文件A 的内容存入 哈希中；
第二步：把20个文件放在一个目录下，使用opendir 函数读取目录进行操作，例如：
#!/usr/bin/perl
use warnings;
use strict;
my %hash;
open IN, $file1 or die $!;
while<IN>
{
$hash{$_}=1;
}
my ($dirname, $filename);
$dirname = "E:/xiao/";
open OUT, ">c.txt" or die $i;
opendir (DIR, $dirname ) || die "Error in opening dir $dirname\n";
while( ($filename = readdir(DIR))){
open (FILE, "E:/xiao/".$filename)|| die "can not open the file $filename\n";

while (<FILE>){
chomp;
if(exists $hash{$_})
{ print OUT "$_\n" ; }
}
}
closedir(DIR);