对比两个文件并对数据进行筛选的perl脚本

#!/usr/bin/perl

my %scyjm; 
open (CONTACT,"f:perlf.txt")||die("can not open the file!");  
while (<CONTACT>) 
{ 
  next if /^#/;#if($_=~/^#/的简写 
  chomp; 
  my @information =split;# my @information=split/s+/,$_;的简写 
  next if(($information[1]=~/./) && ($information[2]=~/./)); 
  $scyjm{$information[13]}->{$information[0]}=$information[3]; 
} 
close CONTACT; 
open (SC,"f:perla.csv")||die("can not open the file!"); 
while(<SC>) 
{ 
   chomp; 
   my @sc=split; 
   if ( $scyjm{$sc[1]}{$sc[2]}) 
   { 
      print "$sc[0] $sc[1] $sc[2] $sc[3] $sc[4] $sc[6] $yjm[6]n"; 
   } 
}