亲宝软件园·资讯

展开

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

人气:0
想了解perl实现的两个文件对比并对数据进行筛选的脚本代码的相关内容吗,在本文为您仔细讲解对比的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:perl,对比,筛选,下面大家一起来学习吧。
复制代码 代码如下:

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

加载全部内容

相关教程
猜你喜欢
用户评论