主页 > 知识库 > perl实现的两个文件对比并对数据进行筛选的脚本代码

perl实现的两个文件对比并对数据进行筛选的脚本代码

热门标签:上海企业外呼系统 智能机器人电销神器 电话机器人哪里有卖 河南虚拟外呼系统公司 okcc外呼系统怎么调速度 热门电销机器人 万利达百货商场地图标注 惠州龙门400电话要怎么申请 外呼电信系统
复制代码 代码如下:

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

标签:绥化 百色 秦皇岛 合肥 周口 周口 淮安 绵阳

巨人网络通讯声明:本文标题《perl实现的两个文件对比并对数据进行筛选的脚本代码》,本文关键词  perl,实现,的,两个,文件,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《perl实现的两个文件对比并对数据进行筛选的脚本代码》相关的同类信息!
  • 本页收集关于perl实现的两个文件对比并对数据进行筛选的脚本代码的相关信息资讯供网民参考!
  • 推荐文章