简单实例-对比文件

####比较两个文件

#!/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;