perl实现的两个文件对比并对数据进行筛选的脚本代码（perl字符串）没想到

#!/usr/bin/perl

my %scyjm; 

open (CONTACT,”f:\\perl\\f.txt”)||die(“can not open the file!”);  

while () 

{ 

  next if /^#/;#if($_=~/^#/的简写 

  chomp; 

  my @information=split;# my @information=split/\s+/,$_;的简写 

  next if(($information[1]=~/\https://www.jb51.net/article/) && ($information[2]=~/\https://www.jb51.net/article/)); 

  $scyjm{$information[13]}->{$information[0]}=$information[3]; 

} 

close CONTACT; 

open (SC,”f:\\perl\\a.csv”)||die(“can not open the file!”); 

while() 

{ 

   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”; 

   } 

}