perl怎么比较两个文件


这篇文章主要介绍“perl怎么比较两个文件”的相关知识,小编通过实际案例向大家展示操作过程,操作方法简单快捷,实用性强,希望这篇“perl怎么比较两个文件”文章能帮助大家解决问题。####比较两个文件#!/usr/bin/perluse strict;use warnings;#use PerlIO::gzip;open IN1, “$ARGV[0]” or die $!; ##打开 香港云主机文件1open (IN2,”$ARGV[1]”) or die $!; ##打开文件2open (OUT,”>$ARGV[2]”) or die $!; ##打开结果文件(此时为空)my %hash=();my $ass;while(){ ##按行读取文件1chomp; ##去掉换行符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怎么比较两个文件”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识,可以关注开发云行业资讯频道,小编每天都会为大家更新不同的知识点。

相关推荐: 笔记本电脑屏幕突然变暗的解决方法

这篇文章主要介绍笔记本电脑屏幕突然变暗的解决方法,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!(1)显 香港云主机卡问题:1、电源重新插过,并清洁金手指,看风扇是否正常。2、重新更新驱动,也可以下载驱动精灵。(2)连接线问题:重新插过电…

免责声明:本站发布的图片视频文字,以转载和分享为主,文章观点不代表本站立场,本站不承担相关法律责任;如果涉及侵权请联系邮箱:360163164@qq.com举报,并提供相关证据,经查实将立刻删除涉嫌侵权内容。

(0)
打赏 微信扫一扫 微信扫一扫
上一篇 07/14 13:28
下一篇 07/14 13:28

相关推荐