这篇文章主要介绍“perl怎么比较两个文件”的相关知识，小编通过实际案例向大家展示操作过程，操作方法简单快捷，实用性强，希望这篇“perl怎么比较两个文件”文章能帮助大家解决问题。
####比较两个文件
#!/usr/bin/perl
use strict;
use warnings;
#use PerlIO::gzip;
open IN1, "$ARGV[0]" or die $!; ##打开文件1
open (IN2,"$ARGV[1]") or die $!; ##打开文件2
open (OUT,">$ARGV[2]") or die $!; ##打开结果文件（此时为空）
my %hash=();
my $ass;
while(<IN1>){ ##按行读取文件1
chomp; ##去掉换行符
my @arr=split /\s+/,$_; ##按空格分隔
my $ID=$arr[0]; ##提取需要比较的列
$hash{$ID}=1; ##hash定义键和值
}
while(<IN2>){
chomp;
$ass=$_;
my @as=split /\s+/,$ass;
my $ae=$as[0];
if (exists $hash{$ae}){ ##循环判断，是否存在键值
print OUT "$ass"; ##输出到OUT句柄打开的文件中
}
}
close IN1;
close IN2;
close OUT;
关于“perl怎么比较两个文件”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识，可以关注亿速云行业资讯频道，小编每天都会为大家更新不同的知识点。
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
