复制代码 代码如下:

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

}

}