perl怎么比较两个文件-成都快上网建站

perl怎么比较两个文件

这篇文章主要介绍“perl怎么比较两个文件”的相关知识,小编通过实际案例向大家展示操作过程,操作方法简单快捷,实用性强,希望这篇“perl怎么比较两个文件”文章能帮助大家解决问题。

创新互联公司长期为近千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为同安企业提供专业的成都网站设计、做网站、成都外贸网站建设公司同安网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。

####比较两个文件

#!/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(){            ##按行读取文件1

chomp;               ##去掉换行符

my @arr=split /\s+/,$_;   ##按空格分隔

my $ID=$arr[0];           ##提取需要比较的列

$hash{$ID}=1;             ##hash定义键和值

}

while(){

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怎么比较两个文件”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识,可以关注创新互联行业资讯频道,小编每天都会为大家更新不同的知识点。


网站名称:perl怎么比较两个文件
网址分享:http://kswjz.com/article/gghigc.html
扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流