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

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

第一步： 把文件A 的内容存入 哈希中；
第二步：把20个文件放在一个目录下，使用opendir 函数读取目录进行操作，例如：
#!/usr/bin/perl
use warnings;
use strict;
my %hash;
open IN, $file1 or die $!;
while
{
$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 (){
chomp;
if(exists $hash{$_})
{ print OUT "$_\n" ; }
}
}
closedir(DIR);

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息