代碼如下: #!/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"; } }
