利用perl对比两个文件，并对数据进行筛选，涉及到哈希的应用和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";}}