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

代码如下：

#!/usr/bin/perl
my %scyjm;  
open (CONTACT,"f:\\perl\\f.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:\\perl\\a.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";  
   }  
}