利用perl对比两个文件，并对数据进行筛选，涉及到哈希的应用和pe

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";
	}
}